From 872995856730e24f33a6dab4b69c9c9e8d406859 Mon Sep 17 00:00:00 2001
From: ijackson <ijackson>
Date: Fri, 8 Jul 2022 09:14:42 +0000
Subject: [PATCH] do not use $*

---
 cgi-lib.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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";
     }
   }
-- 
2.30.2