diff options
| author | Wolfram Schneider <wosch@FreeBSD.org> | 2014-05-29 11:39:02 +0000 |
|---|---|---|
| committer | Wolfram Schneider <wosch@FreeBSD.org> | 2014-05-29 11:39:02 +0000 |
| commit | 536050cea8f16998f8fbddf6b4aff8469e149ec0 (patch) | |
| tree | 5221c5415254b7780a69e1a5006012e364544f91 /en_US.ISO8859-1 | |
| parent | af3128b904ba26096df11ec27295f66356e9d847 (diff) | |
| download | doc-536050cea8f16998f8fbddf6b4aff8469e149ec0.tar.gz doc-536050cea8f16998f8fbddf6b4aff8469e149ec0.zip | |
fix old perl code:
$* is no longer supported at ./cgi-lib.pl
Notes
Notes:
svn path=/head/; revision=44972
Diffstat (limited to 'en_US.ISO8859-1')
| -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; |