version 1.1.1.24, 2001/03/27 17:24:25 |
version 1.1.1.25, 2001/05/07 17:19:27 |
|
|
# SUCH DAMAGE. |
# SUCH DAMAGE. |
# |
# |
# $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $ |
# $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $ |
# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 knu Exp $ |
# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.71 2001/05/07 17:13:42 knu Exp $ |
# |
# |
### |
### |
|
|
Line 140 sub forbidden_module($); |
|
Line 140 sub forbidden_module($); |
|
delete $ENV{PATH}; |
delete $ENV{PATH}; |
|
|
$cvsweb_revision = '1.106' . '.' . (split(/ /, |
$cvsweb_revision = '1.106' . '.' . (split(/ /, |
q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 knu Exp $ |
q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.71 2001/05/07 17:13:42 knu Exp $ |
))[2]; |
))[2]; |
|
|
use File::Basename; |
use File::Basename; |
Line 1776 sub doDiff($$$$$$) { |
|
Line 1776 sub doDiff($$$$$$) { |
|
|
|
while (($re1, $re2) = each %funcline_regexp) { |
while (($re1, $re2) = each %funcline_regexp) { |
if ($fullname =~ /$re1/) { |
if ($fullname =~ /$re1/) { |
push @difftype, '-F', '$re2'; |
push @difftype, '-F', $re2; |
last; |
last; |
} |
} |
} |
} |