From fa4a943c17e47bf910596a414fd7287983350b9b Mon Sep 17 00:00:00 2001
From: cvs2svn <cvs2svn@FreeBSD.org>
Date: Sun, 24 Feb 2008 03:11:57 +0000
Subject: This commit was manufactured by cvs2svn to create tag
 'RELEASE_7_0_0'.

---
 lang/perl5.6/files/patch-CGI.pm | 15 ---------------
 1 file changed, 15 deletions(-)
 delete mode 100644 lang/perl5.6/files/patch-CGI.pm

(limited to 'lang/perl5.6/files/patch-CGI.pm')

diff --git a/lang/perl5.6/files/patch-CGI.pm b/lang/perl5.6/files/patch-CGI.pm
deleted file mode 100644
index 01410684a7ed..000000000000
--- a/lang/perl5.6/files/patch-CGI.pm
+++ /dev/null
@@ -1,15 +0,0 @@
---- lib/CGI.pm.orig	Tue Sep 30 10:16:33 2003
-+++ lib/CGI.pm	Tue Sep 30 10:20:35 2003
-@@ -1497,8 +1497,10 @@ sub startform {
-     $method = lc($method) || 'post';
-     $enctype = $enctype || &URL_ENCODED;
-     unless (defined $action) {
--       $action = $self->url(-absolute=>1,-path=>1);
--       $action .= "?$ENV{QUERY_STRING}" if $ENV{QUERY_STRING};
-+       $action = $self->escapeHTML($self->url(-absolute=>1,-path=>1));
-+       if (length($ENV{QUERY_STRING})>0) {
-+           $action .= "?".$self->escapeHTML($ENV{QUERY_STRING},1);
-+       }
-     }
-     $action = qq(action="$action");
-     my($other) = @other ? " @other" : '';
-- 
cgit v1.2.3