diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-03-01 16:08:17 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-03-01 16:08:17 +0000 |
| commit | c29edf6c1436006b2170a2279b529d57b78f0536 (patch) | |
| tree | 941795f9dc004304ef94dafca6dce3082a9ab8ca /lib/CGI.pm | |
| parent | 3ee1325fce9723c5c1ae0ef2ad7307ce32571c1b (diff) | |
| download | perl-c29edf6c1436006b2170a2279b529d57b78f0536.tar.gz | |
Upgrade to CGI.pm-3.17, but continuing the version bump for
unintegrated changes.
p4raw-id: //depot/perl@27354
Diffstat (limited to 'lib/CGI.pm')
| -rw-r--r-- | lib/CGI.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm index 025c83f0df..4c98bdad2b 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -18,8 +18,8 @@ use Carp 'croak'; # The most recent version and complete docs are available at: # http://stein.cshl.org/WWW/software/CGI/ -$CGI::revision = '$Id: CGI.pm,v 1.200 2006/02/08 18:28:54 lstein Exp $'; -$CGI::VERSION='3.16_01'; +$CGI::revision = '$Id: CGI.pm,v 1.202 2006/02/24 19:03:29 lstein Exp $'; +$CGI::VERSION='3.17_01'; # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES. # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING. @@ -3314,11 +3314,11 @@ sub read_multipart { return; } - my($param)= $header{'Content-Disposition'}=~/ name="([^;]*)"/; + my($param)= $header{'Content-Disposition'}=~/ name="([^"]*)"/; $param .= $TAINTED; # Bug: Netscape doesn't escape quotation marks in file names!!! - my($filename) = $header{'Content-Disposition'}=~/ filename="([^;]*)"/; + my($filename) = $header{'Content-Disposition'}=~/ filename="([^"]*)"/; # Test for Opera's multiple upload feature my($multipart) = ( defined( $header{'Content-Type'} ) && $header{'Content-Type'} =~ /multipart\/mixed/ ) ? |