svn commit: r44972 - head/en_US.ISO8859-1/htdocs/cgi

[Wolfram Schneider]

Author: wosch
Date: Thu May 29 11:39:02 2014
New Revision: 44972
URL: http://svnweb.freebsd.org/changeset/doc/44972

Log:
  fix old perl code:
  
  $* is no longer supported at ./cgi-lib.pl

Modified:
  head/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl

Modified: head/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl
==============================================================================
--- head/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl	Thu May 29 11:32:15 2014	(r44971)
+++ head/en_US.ISO8859-1/htdocs/cgi/cgi-lib.pl	Thu May 29 11:39:02 2014	(r44972)
@@ -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;