aggregate: Improve checking for too long aggregated filenames.

[ikiwiki.git] / IkiWiki / Plugin / aggregate.pm

diff --git a/IkiWiki/Plugin/aggregate.pm b/IkiWiki/Plugin/aggregate.pm
index 4a704617eed44657282b1ea6bd93be0aeda9fcb7..7f50b54f0cc18fa2f960b5df2ce95e607a62d22b 100644 (file)
--- a/IkiWiki/Plugin/aggregate.pm
+++ b/IkiWiki/Plugin/aggregate.pm
@@ -643,7 +643,7 @@ sub add_page (@) {
                # Make sure that the file name isn't too long. 
                # NB: This doesn't check for path length limits.
                my $max=POSIX::pathconf($config{srcdir}, &POSIX::_PC_NAME_MAX);
-               if (defined $max && length(htmlfn($page)) >= $max) {
+               if (defined $max && length(htmlfn($page).".ikiwiki-new") >= $max) {
                        $c="";
                        $page=$feed->{dir}."/item";
                        while (exists $IkiWiki::pagecase{lc $page.$c} ||