From 1aee5817e8ee565d8efb60984a85c74ae48d025a Mon Sep 17 00:00:00 2001
From: Anton Berezin <tobez@FreeBSD.org>
Date: Mon, 27 Oct 2003 19:48:03 +0000
Subject: Update to 5.8.1.

Also:

Make suidperl optional (ENABLE_SUIDPERL knob).  Switch to perlmalloc by
default, unless threaded perl is built, to improve performance.
Modernize pkg-plist (switch to SITE_PERL where possible).  Update WWW.

Many thanks to foxfair who prepared most of this update.
---
 lang/perl5.10/files/patch-CGI.pm | 15 ---------------
 1 file changed, 15 deletions(-)
 delete mode 100644 lang/perl5.10/files/patch-CGI.pm

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

diff --git a/lang/perl5.10/files/patch-CGI.pm b/lang/perl5.10/files/patch-CGI.pm
deleted file mode 100644
index 1af91639808f..000000000000
--- a/lang/perl5.10/files/patch-CGI.pm
+++ /dev/null
@@ -1,15 +0,0 @@
---- lib/CGI.pm.orig	Tue Sep 30 10:17:22 2003
-+++ lib/CGI.pm	Tue Sep 30 10:20:20 2003
-@@ -1532,8 +1532,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