os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix old perl code:

Browse source 
$* is no longer supported at ./cgi-lib.pl
This commit is contained in:
Wolfram Schneider 2014-05-29 11:39:02 +00:00
parent af3128b904
commit 536050cea8
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/head/; revision=44972
1 changed files with 3 additions and 3 deletions

6
en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl
View file

@ -107,16 +107,16 @@ sub CgiError {
sub PrintVariables {
local (%in) = @_;
local ($old, $out, $output);
$old = $*; $* =1;
#$old = $*; $* =1;
$output .= "<DL COMPACT>";
foreach $key (sort keys(%in)) {
foreach (split("\0", $in{$key})) {
($out = $_) =~ s/\n/<BR>/g;
($out = $_) =~ s/\n/<BR>/gm;
$output .= "<DT><B>$key</B><DD><I>$out</I><BR>";
}
}
$output .= "</DL>";
$* = $old;
#$* = $old;
return $output;
}
1;