diff options
| author | Steve Peters <steve@fisharerojo.org> | 2008-01-01 23:39:58 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-01-01 23:39:58 +0000 |
| commit | ead6d9e190163e03c39bcbeb3fd009a1dba0b9ea (patch) | |
| tree | 9990501755a56f2b4711db5b18a3a951531bf856 /lib/CGI.pm | |
| parent | 580e570ede74f948375802ddb064a6c129d09843 (diff) | |
| download | perl-ead6d9e190163e03c39bcbeb3fd009a1dba0b9ea.tar.gz | |
Upgrade to CGI.pm-3.32. Retain the version bump since bug fixes
have not yet been integrated.
p4raw-id: //depot/perl@32798
Diffstat (limited to 'lib/CGI.pm')
| -rw-r--r-- | lib/CGI.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm index 0e23450c33..b415bcf587 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 ''; } |