sub refresh () {
eval q{use File::Find};
error($@) if $@;
+ eval q{use Cwd};
+ error($@) if $@;
+ my $origdir=getcwd();
my (%pages, %dirs);
foreach my $dir ($config{srcdir}, @{$config{underlaydirs}}, $config{underlaydir}) {
- require File::Spec;
- $dir=File::Spec->canonpath($dir);
+ chdir($dir) || next;
find({
no_chdir => 1,
wanted => sub {
- my $file=File::Spec->canonpath(decode_utf8($_));
- return if $file eq $dir;
- $file=~s/^\Q$dir\E\/?//;
+ my $file=decode_utf8($_);
+ $file=~s/^\.\/?//;
return unless length $file;
if (IkiWiki::file_pruned($file)) {
$File::Find::prune=1;
}
}
}
- }, $dir);
+ }, '.');
+
+ chdir($origdir) || die "chdir $origdir: $!";
}
my %deleted;
}
if ($config{rcs}) {
IkiWiki::rcs_commit_staged(
- gettext("automatic index generation"),
- undef, undef);
+ message => gettext("automatic index generation"),
+ );
IkiWiki::enable_commit_hook();
}
}