--- blosxom-old.cgi	Fri Oct  4 23:26:37 2002
+++ blosxom.cgi	Fri Oct  4 23:24:50 2002
@@ -47,7 +47,7 @@
 my @pi = split m{/}, path_info(); 
 shift @pi;
 my $pi_bl = '';
-while ($pi[0] =~ /^[a-zA-Z]\w*$/) { $pi_bl .= '/' . shift @pi; }
+while (@pi and $pi[0] =~ /^[a-zA-Z]\w*$/) { $pi_bl .= '/' . shift @pi; }
 # HJE my $flavour = param('flav') || 'html';
 my $flavour = 'html';