X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fupstream%2Fblosxom.git;a=blobdiff_plain;f=blosxom.cgi;h=4005c8c8898759d9f8937ac964507ed9d9d50ed9;hp=2fd086149ff63fd7838de45be2f1c6a431901f4f;hb=edb54ed7d5e10af1809cc06ef469e9af82e0c52f;hpb=724889277de88cc8d63e4516d74564cf1ba2ac11 diff --git a/blosxom.cgi b/blosxom.cgi index 2fd0861..4005c8c 100755 --- a/blosxom.cgi +++ b/blosxom.cgi @@ -2,7 +2,7 @@ # Blosxom # Author: Rael Dornfest -# Version: 2.0.1 +# Version: 2.0.2 # Home/Docs/Licensing: http://www.blosxom.com/ # Development/Downloads: http://sourceforge.net/projects/blosxom @@ -76,7 +76,7 @@ use File::stat; use Time::localtime; use CGI qw/:standard :netscape/; -$version = "2.0"; +$version = "2.0.2"; my $fh = new FileHandle; @@ -183,7 +183,7 @@ sub load_template { return &$template(@_); } -# Define default find subroutine +# Define default entries subroutine $entries = sub { my(%files, %indexes, %others); @@ -363,7 +363,7 @@ sub generate { ($path,$fn) = $path_file =~ m!^$datadir/(?:(.*)/)?(.*)\.$file_extension!; # Only stories in the right hierarchy - $path =~ /^$currentdir(?=$|\/)/ or $path_file eq "$datadir/$currentdir" or next; + $path =~ /^$currentdir/ or $path_file eq "$datadir/$currentdir" or next; # Prepend a slash for use in templates only if a path exists $path &&= "/$path";