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: 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;
-- 
cgit v1.2.3