avoid dying if cannot chdir to an underlaydir
parent
f70bc8184a
commit
cb4b999297
|
@ -39,7 +39,7 @@ sub refresh () {
|
|||
|
||||
my (%pages, %dirs);
|
||||
foreach my $dir ($config{srcdir}, @{$config{underlaydirs}}, $config{underlaydir}) {
|
||||
chdir($dir) || die "chdir: $!";
|
||||
chdir($dir) || next;
|
||||
|
||||
find({
|
||||
no_chdir => 1,
|
||||
|
@ -64,7 +64,7 @@ sub refresh () {
|
|||
}
|
||||
}, '.');
|
||||
|
||||
chdir($origdir) || die "chdir: $!";
|
||||
chdir($origdir) || die "chdir $origdir: $!";
|
||||
}
|
||||
|
||||
my %deleted;
|
||||
|
|
|
@ -669,7 +669,7 @@ sub comments_pending () {
|
|||
my $extension=shift;
|
||||
return unless -d $dir;
|
||||
|
||||
chdir($dir) || die "chdir: $!";
|
||||
chdir($dir) || die "chdir $dir: $!";
|
||||
|
||||
find({
|
||||
no_chdir => 1,
|
||||
|
@ -686,7 +686,7 @@ sub comments_pending () {
|
|||
}
|
||||
}, ".");
|
||||
|
||||
chdir($origdir) || die "chdir: $!";
|
||||
chdir($origdir) || die "chdir $origdir: $!";
|
||||
};
|
||||
|
||||
$find_comments->($config{srcdir}, "._comment_pending");
|
||||
|
|
|
@ -335,21 +335,22 @@ sub find_src_files () {
|
|||
}
|
||||
};
|
||||
|
||||
chdir($config{srcdir}) || die "chdir: $!";
|
||||
chdir($config{srcdir}) || die "chdir $config{srcdir}: $!";
|
||||
find({
|
||||
no_chdir => 1,
|
||||
wanted => $helper,
|
||||
}, '.');
|
||||
chdir($origdir) || die "chdir: $!";
|
||||
chdir($origdir) || die "chdir $origdir: $!";
|
||||
|
||||
$underlay=1;
|
||||
foreach (@{$config{underlaydirs}}, $config{underlaydir}) {
|
||||
chdir($_) || die "chdir: $!";
|
||||
find({
|
||||
no_chdir => 1,
|
||||
wanted => $helper,
|
||||
}, '.');
|
||||
chdir($origdir) || die "chdir: $!";
|
||||
if (chdir($_)) {
|
||||
find({
|
||||
no_chdir => 1,
|
||||
wanted => $helper,
|
||||
}, '.');
|
||||
chdir($origdir) || die "chdir: $!";
|
||||
}
|
||||
};
|
||||
|
||||
return \@files, \%pages;
|
||||
|
|
Loading…
Reference in New Issue