diff options
| -rw-r--r-- | en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl b/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl index 30ba9df7ab..fd857ccff5 100644 --- a/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl +++ b/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl @@ -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; |