diff options
Diffstat (limited to 'japanese/perl5')
| -rw-r--r-- | japanese/perl5/files/patch-lib:CGI.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/japanese/perl5/files/patch-lib:CGI.pm b/japanese/perl5/files/patch-lib:CGI.pm new file mode 100644 index 000000000000..f805d374c336 --- /dev/null +++ b/japanese/perl5/files/patch-lib:CGI.pm @@ -0,0 +1,13 @@ +--- 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/; |