From ed6bbbd74b9019c51cfdb9756f180db9d8554bc5 Mon Sep 17 00:00:00 2001
From: Anton Berezin <tobez@FreeBSD.org>
Date: Tue, 13 May 2008 07:37:54 +0000
Subject: 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
---
 www/p5-CGI.pm/Makefile              |  1 +
 www/p5-CGI.pm/files/patch-bug-34551 | 11 +++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 www/p5-CGI.pm/files/patch-bug-34551

(limited to 'www/p5-CGI.pm')

diff --git a/www/p5-CGI.pm/Makefile b/www/p5-CGI.pm/Makefile
index 1d47546f260a..43eb6c6d1fb0 100644
--- a/www/p5-CGI.pm/Makefile
+++ b/www/p5-CGI.pm/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	CGI.pm
 PORTVERSION=	3.37
+PORTREVISION=	1
 PORTEPOCH=	1
 CATEGORIES=	www perl5
 MASTER_SITES=	CPAN
diff --git a/www/p5-CGI.pm/files/patch-bug-34551 b/www/p5-CGI.pm/files/patch-bug-34551
new file mode 100644
index 000000000000..4701387beaca
--- /dev/null
+++ b/www/p5-CGI.pm/files/patch-bug-34551
@@ -0,0 +1,11 @@
+--- 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/ ) ?
-- 
cgit v1.2.3