summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--lang/perl5.10/Makefile2
-rw-r--r--lang/perl5.10/files/patch-CGI.pm15
-rw-r--r--lang/perl5.12/Makefile2
-rw-r--r--lang/perl5.12/files/patch-CGI.pm15
-rw-r--r--lang/perl5.14/Makefile2
-rw-r--r--lang/perl5.14/files/patch-CGI.pm15
-rw-r--r--lang/perl5.16/Makefile2
-rw-r--r--lang/perl5.16/files/patch-CGI.pm15
-rw-r--r--lang/perl5.6/Makefile2
-rw-r--r--lang/perl5.6/files/patch-CGI.pm15
-rw-r--r--lang/perl5.8/Makefile2
-rw-r--r--lang/perl5.8/files/patch-CGI.pm15
-rw-r--r--lang/perl5/Makefile2
-rw-r--r--lang/perl5/files/patch-CGI.pm15
14 files changed, 112 insertions, 7 deletions
diff --git a/lang/perl5.10/Makefile b/lang/perl5.10/Makefile
index 8d4506aaece4..67a41d631857 100644
--- a/lang/perl5.10/Makefile
+++ b/lang/perl5.10/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.10/files/patch-CGI.pm b/lang/perl5.10/files/patch-CGI.pm
new file mode 100644
index 000000000000..1af91639808f
--- /dev/null
+++ b/lang/perl5.10/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" : '';
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" : '';
diff --git a/lang/perl5.14/Makefile b/lang/perl5.14/Makefile
index 8d4506aaece4..67a41d631857 100644
--- a/lang/perl5.14/Makefile
+++ b/lang/perl5.14/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.14/files/patch-CGI.pm b/lang/perl5.14/files/patch-CGI.pm
new file mode 100644
index 000000000000..1af91639808f
--- /dev/null
+++ b/lang/perl5.14/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" : '';
diff --git a/lang/perl5.16/Makefile b/lang/perl5.16/Makefile
index 8d4506aaece4..67a41d631857 100644
--- a/lang/perl5.16/Makefile
+++ b/lang/perl5.16/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.16/files/patch-CGI.pm b/lang/perl5.16/files/patch-CGI.pm
new file mode 100644
index 000000000000..1af91639808f
--- /dev/null
+++ b/lang/perl5.16/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" : '';
diff --git a/lang/perl5.6/Makefile b/lang/perl5.6/Makefile
index 4546fc219317..39b169c73059 100644
--- a/lang/perl5.6/Makefile
+++ b/lang/perl5.6/Makefile
@@ -7,7 +7,7 @@
PORTNAME= perl
PORTVERSION= ${PERL_VER}
-PORTREVISION= 13
+PORTREVISION= 14
CATEGORIES= lang devel perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN} \
${MASTER_SITE_LOCAL:S/$/:local/}
diff --git a/lang/perl5.6/files/patch-CGI.pm b/lang/perl5.6/files/patch-CGI.pm
new file mode 100644
index 000000000000..01410684a7ed
--- /dev/null
+++ b/lang/perl5.6/files/patch-CGI.pm
@@ -0,0 +1,15 @@
+--- 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" : '';
diff --git a/lang/perl5.8/Makefile b/lang/perl5.8/Makefile
index 8d4506aaece4..67a41d631857 100644
--- a/lang/perl5.8/Makefile
+++ b/lang/perl5.8/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.8/files/patch-CGI.pm b/lang/perl5.8/files/patch-CGI.pm
new file mode 100644
index 000000000000..1af91639808f
--- /dev/null
+++ b/lang/perl5.8/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" : '';
diff --git a/lang/perl5/Makefile b/lang/perl5/Makefile
index 4546fc219317..39b169c73059 100644
--- a/lang/perl5/Makefile
+++ b/lang/perl5/Makefile
@@ -7,7 +7,7 @@
PORTNAME= perl
PORTVERSION= ${PERL_VER}
-PORTREVISION= 13
+PORTREVISION= 14
CATEGORIES= lang devel perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN} \
${MASTER_SITE_LOCAL:S/$/:local/}
diff --git a/lang/perl5/files/patch-CGI.pm b/lang/perl5/files/patch-CGI.pm
new file mode 100644
index 000000000000..01410684a7ed
--- /dev/null
+++ b/lang/perl5/files/patch-CGI.pm
@@ -0,0 +1,15 @@
+--- 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" : '';
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-18 04:49:18 +0000