head	1.2;
access;
symbols
	RELEASE_5_EOL:1.1;
locks; strict;
comment	@# @;


1.2
date	2008.07.02.09.46.18;	author tobez;	state dead;
branches;
next	1.1;

1.1
date	2008.05.13.07.37.54;	author tobez;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Update to 3.38.

Changes: http://search.cpan.org/dist/CGI.pm/Changes
@
text
@--- CGI.pm.orig	2008-05-13 09:32:19.000000000 +0200
+++ CGI.pm	2008-05-13 09:32:59.000000000 +0200
@@@@ -3387,7 +3387,7 @@@@ sub read_multipart {
         # content-disposition parsing fail.
         my ($filename) = $header{'Content-Disposition'}
 	               =~/ filename=(("[^"]*")|([a-z\d!\#'\*\+,\.^_\`\{\}\|\~]*))/i;
-        $filename =~ s/^"([^"]*)"$/$1/;
+        $filename =~ s/^"([^"]*)"$/$1/ if defined $filename;
 	# Test for Opera's multiple upload feature
 	my($multipart) = ( defined( $header{'Content-Type'} ) &&
 		$header{'Content-Type'} =~ /multipart\/mixed/ ) ?
@


1.1
log
@Fix spurious warnings that appear when working with POST forms.
Bump portrevision.

Requested by:	sat
See also:	http://rt.cpan.org/Public/Bug/Display.html?id=34551
@
text
@@

