aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWolfram Schneider <wosch@FreeBSD.org>2014-05-29 11:39:02 +0000
committerWolfram Schneider <wosch@FreeBSD.org>2014-05-29 11:39:02 +0000
commit536050cea8f16998f8fbddf6b4aff8469e149ec0 (patch)
tree5221c5415254b7780a69e1a5006012e364544f91
parentaf3128b904ba26096df11ec27295f66356e9d847 (diff)
downloaddoc-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
-rw-r--r--en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl6
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;