From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 1 Jan 2008 23:39:58 +0000 (+0000)
Subject: Upgrade to CGI.pm-3.32.  Retain the version bump since bug fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ead6d9e190163e03c39bcbeb3fd009a1dba0b9ea;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to CGI.pm-3.32.  Retain the version bump since bug fixes
have not yet been integrated.

p4raw-id: //depot/perl@32798
---

diff --git a/lib/CGI.pm b/lib/CGI.pm
index 0e23450..b415bcf 100644
--- a/lib/CGI.pm
+++ b/lib/CGI.pm
@@ -19,7 +19,7 @@ use Carp 'croak';
 #   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 @@ sub header {
     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 '';
     }