svn commit: r44972 - head/en_US.ISO8859-1/htdocs/cgi
Wolfram Schneider <[email protected]>
| Newsgroups | gmane.os.freebsd.devel.cvs.doc |
|---|---|
| Message-ID | <[email protected]> |
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;
_______________________________________________
[email protected] mailing list
http://lists.freebsd.org/mailman/listinfo/svn-doc-all
To unsubscribe, send any mail to "[email protected]"