From: ijackson <ijackson>
Date: Fri, 8 Jul 2022 09:14:42 +0000 (+0000)
Subject: do not use $*
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=872995856730e24f33a6dab4b69c9c9e8d406859;p=bcp5-registry.git

do not use $*
---

diff --git a/cgi-lib.pl b/cgi-lib.pl
index 6175eec..c67da53 100644
--- 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";
     }
   }