Add regression test for libdir/libdirs

[ikiwiki.git] / ikiwiki-comment.in

diff --git a/ikiwiki-comment.in b/ikiwiki-comment.in
index ef2751ecadaf537a571391965b586d9d9668387f..b0cea4a4ae03fe17d6ad7a382b097f114f89c557 100755 (executable)
--- a/ikiwiki-comment.in
+++ b/ikiwiki-comment.in
@@ -14,7 +14,9 @@ my $pagefile=shift || usage ();
 my $dir=IkiWiki::dirname($pagefile);
 $dir="." unless length $dir;
 my $page=IkiWiki::basename($pagefile);
-$page=~s/\.[^.]+$//;
+if (! -d $pagefile) {
+       $page=~s/\.[^.]+$//;
+}
 
 IkiWiki::Plugin::comments::checkconfig();
 my $comment_num=1 + IkiWiki::Plugin::comments::num_comments($page, $dir);