From owner-svn-doc-head@FreeBSD.ORG  Thu May 29 11:39:03 2014
Return-Path: <owner-svn-doc-head@FreeBSD.ORG>
Delivered-To: svn-doc-head@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org
 [IPv6:2001:1900:2254:206a::19:1])
 (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits))
 (No client certificate requested)
 by hub.freebsd.org (Postfix) with ESMTPS id 13504243;
 Thu, 29 May 2014 11:39:03 +0000 (UTC)
Received: from svn.freebsd.org (svn.freebsd.org
 [IPv6:2001:1900:2254:2068::e6a:0])
 (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits))
 (Client did not present a certificate)
 by mx1.freebsd.org (Postfix) with ESMTPS id 009942FB5;
 Thu, 29 May 2014 11:39:03 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.8/8.14.8) with ESMTP id s4TBd2h7056623;
 Thu, 29 May 2014 11:39:02 GMT (envelope-from wosch@svn.freebsd.org)
Received: (from wosch@localhost)
 by svn.freebsd.org (8.14.8/8.14.8/Submit) id s4TBd2Ol056622;
 Thu, 29 May 2014 11:39:02 GMT (envelope-from wosch@svn.freebsd.org)
Message-Id: <201405291139.s4TBd2Ol056622@svn.freebsd.org>
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Thu, 29 May 2014 11:39:02 +0000 (UTC)
To: doc-committers@freebsd.org, svn-doc-all@freebsd.org,
 svn-doc-head@freebsd.org
Subject: svn commit: r44972 - head/en_US.ISO8859-1/htdocs/cgi
X-SVN-Group: doc-head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-doc-head@freebsd.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: SVN commit messages for the doc tree for head
 <svn-doc-head.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-doc-head>,
 <mailto:svn-doc-head-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-doc-head/>
List-Post: <mailto:svn-doc-head@freebsd.org>
List-Help: <mailto:svn-doc-head-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-doc-head>,
 <mailto:svn-doc-head-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Thu, 29 May 2014 11:39:03 -0000

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;