fix old perl code:

$* 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

View file

@ -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;