cvsweb/cvsweb.cgi - diff

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

Line 1001 sub findLastModifiedSubdirs(@) {

sub htmlify_sub(&$) {

(my $proc, local $_) = @_;

local @_ = split(m`(<a [^>]+>[^<]*</a>)`i);

my ($linked, $result);

my $linked;

my $result = '';

while (($_, $linked) = splice(@_, 0, 2)) {

&$proc();

$result .= $_;

$result .= $_ if defined($_);

$result .= $linked;

$result .= $linked if defined($linked);

}

$result;