diff options
Diffstat (limited to 'japanese/perl5/files/patch-lib:CGI.pm')
| -rw-r--r-- | japanese/perl5/files/patch-lib:CGI.pm | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/japanese/perl5/files/patch-lib:CGI.pm b/japanese/perl5/files/patch-lib:CGI.pm deleted file mode 100644 index f805d374c336..000000000000 --- a/japanese/perl5/files/patch-lib:CGI.pm +++ /dev/null @@ -1,13 +0,0 @@ ---- lib/CGI.pm.orig Fri Feb 12 09:05:57 1999 -+++ lib/CGI.pm Sat Oct 4 01:14:41 2003 -@@ -1413,8 +1413,8 @@ - - $method = $method || 'POST'; - $enctype = $enctype || &URL_ENCODED; -- $action = $action ? qq/ACTION="$action"/ : $method eq 'GET' ? -- 'ACTION="'.$self->script_name.'"' : ''; -+ $action = $action ? 'ACTION="'.$self->escapeHTML($action).'"' : $method eq 'GET' ? -+ 'ACTION="'.$self->escapeHTML($self->script_name).'"' : ''; - my($other) = @other ? " @other" : ''; - $self->{'.parametersToAdd'}={}; - return qq/<FORM METHOD="$method" $action ENCTYPE="$enctype"$other>\n/; |