diff options
| author | Steve Peters <steve@fisharerojo.org> | 2008-04-30 12:57:38 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-04-30 12:57:38 +0000 |
| commit | ebb7c588e19eeb98693e63d130912163306d04b0 (patch) | |
| tree | 309711f0d9206c3f7cc0f5ce7e65d4d7baf0031e /lib/CGI | |
| parent | 9de9b613d4eea9f8dc1cbb98f3b265ce4be1efbe (diff) | |
| download | perl-ebb7c588e19eeb98693e63d130912163306d04b0.tar.gz | |
Upgrade to CGI.pm-3.37
p4raw-id: //depot/perl@33773
Diffstat (limited to 'lib/CGI')
| -rw-r--r-- | lib/CGI/Cookie.pm | 6 | ||||
| -rw-r--r-- | lib/CGI/Fast.pm | 1 | ||||
| -rw-r--r-- | lib/CGI/t/upload.t | 3 |
3 files changed, 6 insertions, 4 deletions
diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index 897e33122e..c9f318ee22 100644 --- a/lib/CGI/Cookie.pm +++ b/lib/CGI/Cookie.pm @@ -13,7 +13,7 @@ package CGI::Cookie; # wish, but if you redistribute a modified version, please attach a note # listing the modifications you have made. -$CGI::Cookie::VERSION='1.28'; +$CGI::Cookie::VERSION='1.29'; use CGI::Util qw(rearrange unescape escape); use CGI; @@ -51,7 +51,7 @@ sub fetch { my %results; my($key,$value); - my(@pairs) = split("[;,] ?",$raw_cookie); + my @pairs = split("[;,] ?",$raw_cookie); foreach (@pairs) { s/\s*(.*?)\s*/$1/; if (/^([^=]+)=(.*)/) { @@ -88,7 +88,7 @@ sub parse { my ($self,$raw_cookie) = @_; my %results; - my(@pairs) = split("; ?",$raw_cookie); + my @pairs = split("[;,] ?",$raw_cookie); foreach (@pairs) { s/\s*(.*?)\s*/$1/; my($key,$value) = split("=",$_,2); diff --git a/lib/CGI/Fast.pm b/lib/CGI/Fast.pm index 85fc158154..d29feb41b5 100644 --- a/lib/CGI/Fast.pm +++ b/lib/CGI/Fast.pm @@ -55,6 +55,7 @@ sub new { } } CGI->_reset_globals; + $self->_setup_symbols(@SAVED_SYMBOLS) if @CGI::SAVED_SYMBOLS; return $CGI::Q = $self->SUPER::new($initializer, @param); } diff --git a/lib/CGI/t/upload.t b/lib/CGI/t/upload.t index 9f92ca45ae..fabff44804 100644 --- a/lib/CGI/t/upload.t +++ b/lib/CGI/t/upload.t @@ -81,7 +81,8 @@ is( $q->param('300x300_gif') , '300x300.gif' , 'filename_4' ); { my $test = "multiple file names are handled right with same-named upload fields"; my @hello_names = $q->param('hello_world'); - is_deeply(\@hello_names, [ 'goodbye_world.txt','hello_world.txt' ], $test); + is ($hello_names[0],'goodbye_world.txt',$test. "...first file"); + is ($hello_names[1],'hello_world.txt',$test. "...second file"); } #----------------------------------------------------------------------------- |