do not use $*

diff --git a/cgi-lib.pl b/cgi-lib.pl
index 6175eec340d5160c2d32695b8172dc6362d34d8c..c67da53591132adaf93930b16e8257ad3d412418 100644 (file)
--- a/cgi-lib.pl
+++ b/cgi-lib.pl
@@ -179,11 +179,11 @@ sub CgiDie {
 sub PrintVariables {
   local (%in) = @_;
   local ($old, $out, $output);
-  $old = $*;  $* =1;
+  # $old = $*;  $* =1;
   $output .=  "\n<dl compact>\n";
   foreach $key (sort keys(%in)) {
     foreach (split("\0", $in{$key})) {
-      ($out = $_) =~ s/\n/<br>\n/g;
+      ($out = $_) =~ s/\n/<br>\n/mg;
       $output .=  "<dt><b>$key</b>\n <dd><i>$out</i><br>\n";
     }
   }