my (%pages, %dirs);
foreach my $dir ($config{srcdir}, @{$config{underlaydirs}}, $config{underlaydir}) {
- chdir($dir) || die "chdir: $!";
+ chdir($dir) || next;
find({
no_chdir => 1,
}
}, '.');
- chdir($origdir) || die "chdir: $!";
+ chdir($origdir) || die "chdir $origdir: $!";
}
my %deleted;