fix stat to use unmunged filename

diff --git a/IkiWiki/Plugin/comments.pm b/IkiWiki/Plugin/comments.pm
index 03ca19c9876e0211db52628ae37dd69523a510e2..ccc9e10686a74ea2538b86df940a4ed5bd3a8721 100644 (file)
--- a/IkiWiki/Plugin/comments.pm
+++ b/IkiWiki/Plugin/comments.pm
@@ -653,7 +653,7 @@ sub comments_pending () {
                        elsif (! -l $_ && ! -d _) {
                                my ($f) = $file =~ /$config{wiki_file_regexp}/; # untaint
                                if (defined $f && $f =~ /\Q._comment\E$/) {
-                                       my $ctime=(stat($f))[10];
+                                       my $ctime=(stat($_))[10];
                                         push @ret, [$f, $ctime];
                                }
                        }