Change 32798 by [EMAIL PROTECTED] on 2008/01/01 23:39:58
Upgrade to CGI.pm-3.32. Retain the version bump since bug fixes
have not yet been integrated.
Affected files ...
... //depot/perl/lib/CGI.pm#70 edit
Differences ...
==== //depot/perl/lib/CGI.pm#70 (text) ====
Index: perl/lib/CGI.pm
--- perl/lib/CGI.pm#69~32683~ 2007-12-20 19:14:20.000000000 -0800
+++ perl/lib/CGI.pm 2008-01-01 15:39:58.000000000 -0800
@@ -19,7 +19,7 @@
# http://stein.cshl.org/WWW/software/CGI/
$CGI::revision = '$Id: CGI.pm,v 1.240 2007/11/30 18:58:27 lstein Exp $';
-$CGI::VERSION='3.31_01';
+$CGI::VERSION='3.32_01';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
# UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
@@ -1522,7 +1522,7 @@
push(@header,map {ucfirst $_} @other);
push(@header,"Content-Type: $type") if $type ne '';
my $header = join($CRLF,@header)."${CRLF}${CRLF}";
- if (($MOD_PERL==1) && !$nph) {
+ if (($MOD_PERL >= 1) && !$nph) {
$self->r->send_cgi_header($header);
return '';
}
End of Patch.
