diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-09 14:56:10 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-09 14:56:10 +0000 |
commit | 76b9f30f3f9b779d76a22f193be878c46c800416 (patch) | |
tree | 94f59a3083e0e1513ffe495e6a65222f375c0868 | |
parent | 2cad33ec8e3342a1c189162982e29411665b131e (diff) | |
download | perl-76b9f30f3f9b779d76a22f193be878c46c800416.tar.gz |
Upgrade to CGI.pm 3.04.
p4raw-id: //depot/perl@22469
-rw-r--r-- | lib/CGI.pm | 4 | ||||
-rw-r--r-- | lib/CGI/Cookie.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm index 68072f09da..6458e3b9b7 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -19,7 +19,7 @@ use Carp 'croak'; # http://stein.cshl.org/WWW/software/CGI/ $CGI::revision = '$Id: CGI.pm,v 1.151 2004/01/13 16:28:35 lstein Exp $'; -$CGI::VERSION=3.03; +$CGI::VERSION=3.04; # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES. # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING. @@ -606,7 +606,7 @@ sub init { # Special case. Erase everything if there is a field named # .defaults. if ($self->param('.defaults')) { - undef %{$self}; + $self->delete_all(); } # Associative array containing our defined fieldnames diff --git a/lib/CGI/Cookie.pm b/lib/CGI/Cookie.pm index a12a11334d..27a93c55b0 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.24_01'; +$CGI::Cookie::VERSION='1.24'; use CGI::Util qw(rearrange unescape escape); use overload '""' => \&as_string, @@ -407,7 +407,7 @@ same semantics as fetch(), but performs no unescaping. You may also retrieve cookies that were stored in some external form using the parse() class method: - $COOKIES = `cat /some/path/Cookie_stash`; + $COOKIES = `cat /usr/tmp/Cookie_stash`; %cookies = parse CGI::Cookie($COOKIES); If you are in a mod_perl environment, you can save some overhead by |