=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 1.1.1.12 retrieving revision 3.38 diff -u -p -r1.1.1.12 -r3.38 --- cvsweb/cvsweb.cgi 2000/11/04 19:19:48 1.1.1.12 +++ cvsweb/cvsweb.cgi 2000/11/02 17:34:35 3.38 @@ -43,7 +43,7 @@ # SUCH DAMAGE. # # $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $ -# $kId: cvsweb.cgi,v 1.39 2000/11/04 15:32:17 knu Exp $ +# $Id: cvsweb.cgi,v 3.38 2000/11/02 17:34:35 knu Exp $ # ### @@ -1001,13 +1001,12 @@ sub findLastModifiedSubdirs(@) { sub htmlify_sub(&$) { (my $proc, local $_) = @_; local @_ = split(m`(]+>[^<]*)`i); - my $linked; - my $result = ''; + my ($linked, $result); while (($_, $linked) = splice(@_, 0, 2)) { &$proc(); - $result .= $_ if defined($_); - $result .= $linked if defined($linked); + $result .= $_; + $result .= $linked; } $result; @@ -2640,7 +2639,7 @@ sub navigateHeader($$$$$) { $swhere = urlencode($filename) if ($swhere eq ""); print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">"; print "\n
\n"; - print ''; + print ''; print "\n