Date: Thu, 29 May 2014 11:39:02 +0000 (UTC) From: Wolfram Schneider <wosch@FreeBSD.org> 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 Message-ID: <201405291139.s4TBd2Ol056622@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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;
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201405291139.s4TBd2Ol056622>