Return to cvsweb.cgi CVS log | Up to [cvsweb.bsd.lv] / cvsweb |
version 3.38, 2000/11/02 17:34:35 | version 3.39, 2000/11/04 15:32:17 | ||
---|---|---|---|
|
|
||
sub htmlify_sub(&$) { | sub htmlify_sub(&$) { | ||
(my $proc, local $_) = @_; | (my $proc, local $_) = @_; | ||
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); | local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); | ||
my ($linked, $result); | my $linked; | ||
my $result = ''; | |||
while (($_, $linked) = splice(@_, 0, 2)) { | while (($_, $linked) = splice(@_, 0, 2)) { | ||
&$proc(); | &$proc(); | ||
$result .= $_; | $result .= $_ if defined($_); | ||
$result .= $linked; | $result .= $linked if defined($linked); | ||
} | } | ||
$result; | $result; |