fix old perl code:
$* is no longer supported at ./cgi-lib.pl
This commit is contained in:
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
|
@ -107,16 +107,16 @@ sub CgiError {
|
||||||
sub PrintVariables {
|
sub PrintVariables {
|
||||||
local (%in) = @_;
|
local (%in) = @_;
|
||||||
local ($old, $out, $output);
|
local ($old, $out, $output);
|
||||||
$old = $*; $* =1;
|
#$old = $*; $* =1;
|
||||||
$output .= "<DL COMPACT>";
|
$output .= "<DL COMPACT>";
|
||||||
foreach $key (sort keys(%in)) {
|
foreach $key (sort keys(%in)) {
|
||||||
foreach (split("\0", $in{$key})) {
|
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 .= "<DT><B>$key</B><DD><I>$out</I><BR>";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$output .= "</DL>";
|
$output .= "</DL>";
|
||||||
$* = $old;
|
#$* = $old;
|
||||||
return $output;
|
return $output;
|
||||||
}
|
}
|
||||||
1;
|
1;
|
||||||
|
|
Loading…
Reference in a new issue