From 536050cea8f16998f8fbddf6b4aff8469e149ec0 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Thu, 29 May 2014 11:39:02 +0000
Subject: [PATCH] fix old perl code:
$* is no longer supported at ./cgi-lib.pl
---
en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl | 6 +++---
1 file 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;