|
Lines 87-92
Link Here
|
| 87 |
$use_moddate $has_zlib $gzip_open |
87 |
$use_moddate $has_zlib $gzip_open |
| 88 |
$allow_tar @tar_options @gzip_options @cvs_options |
88 |
$allow_tar @tar_options @gzip_options @cvs_options |
| 89 |
$LOG_FILESEPARATOR $LOG_REVSEPARATOR |
89 |
$LOG_FILESEPARATOR $LOG_REVSEPARATOR |
|
|
90 |
@h |
| 90 |
); |
91 |
); |
| 91 |
|
92 |
|
| 92 |
sub printDiffSelect($); |
93 |
sub printDiffSelect($); |
|
Lines 1106-1116
Link Here
|
| 1106 |
|
1107 |
|
| 1107 |
sub htmlify_sub(&$) { |
1108 |
sub htmlify_sub(&$) { |
| 1108 |
(my $proc, local $_) = @_; |
1109 |
(my $proc, local $_) = @_; |
| 1109 |
local @_ = split(m`(<a [^>]+>[^<]*</a>)`i); |
1110 |
local @h = split(m`(<a [^>]+>[^<]*</a>)`i); |
| 1110 |
my $linked; |
1111 |
my $linked; |
| 1111 |
my $result = ''; |
1112 |
my $result = ''; |
| 1112 |
|
1113 |
|
| 1113 |
while (($_, $linked) = splice(@_, 0, 2)) { |
1114 |
while (($_, $linked) = splice(@h, 0, 2)) { |
| 1114 |
&$proc(); |
1115 |
&$proc(); |
| 1115 |
$result .= $_ if defined($_); |
1116 |
$result .= $_ if defined($_); |
| 1116 |
$result .= $linked if defined($linked); |
1117 |
$result .= $linked if defined($linked); |