aboutsummaryrefslogtreecommitdiff
path: root/lang/perl5.12
diff options
context:
space:
mode:
authorAnton Berezin <tobez@FreeBSD.org>2003-09-30 08:33:57 +0000
committerAnton Berezin <tobez@FreeBSD.org>2003-09-30 08:33:57 +0000
commit8c1a9ff69598b1ec5d4eda67cab4ee063268eb3c (patch)
tree5cd273474019e37d250b5948d79715bc8601906c /lang/perl5.12
parent1a52184ea38cee3e67c7da3b77290f2f70b97d8b (diff)
downloadports-8c1a9ff69598b1ec5d4eda67cab4ee063268eb3c.tar.gz
ports-8c1a9ff69598b1ec5d4eda67cab4ee063268eb3c.zip
Notes
Diffstat (limited to 'lang/perl5.12')
-rw-r--r--lang/perl5.12/Makefile2
-rw-r--r--lang/perl5.12/files/patch-CGI.pm15
2 files changed, 16 insertions, 1 deletions
diff --git a/lang/perl5.12/Makefile b/lang/perl5.12/Makefile
index 8d4506aaece4..67a41d631857 100644
--- a/lang/perl5.12/Makefile
+++ b/lang/perl5.12/Makefile
@@ -7,7 +7,7 @@
PORTNAME= perl
PORTVERSION= ${PERL_VER}
-PORTREVISION= 7
+PORTREVISION= 8
CATEGORIES= lang devel perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN} \
${MASTER_SITE_LOCAL:S/$/:local/} \
diff --git a/lang/perl5.12/files/patch-CGI.pm b/lang/perl5.12/files/patch-CGI.pm
new file mode 100644
index 000000000000..1af91639808f
--- /dev/null
+++ b/lang/perl5.12/files/patch-CGI.pm
@@ -0,0 +1,15 @@
+--- 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" : '';