diff options
| author | Anton Berezin <tobez@FreeBSD.org> | 2003-10-27 19:48:03 +0000 |
|---|---|---|
| committer | Anton Berezin <tobez@FreeBSD.org> | 2003-10-27 19:48:03 +0000 |
| commit | 1aee5817e8ee565d8efb60984a85c74ae48d025a (patch) | |
| tree | 4a40734d22a51c5b390102e6b181374200a171c0 /lang/perl5.10/files/patch-CGI.pm | |
| parent | Change this ports a slave ports. (diff) | |
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.
Notes
Notes:
svn path=/head/; revision=92346
Diffstat (limited to 'lang/perl5.10/files/patch-CGI.pm')
| -rw-r--r-- | lang/perl5.10/files/patch-CGI.pm | 15 |
1 files changed, 0 insertions, 15 deletions
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" : ''; |