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 | e70cb7eb5b13114b416be5e89ab15a7c16b720cf (patch) | |
| tree | 94f59a3083e0e1513ffe495e6a65222f375c0868 /lib/CGI.pm | |
| parent | 466126d39b7f827ef9818652e6ebb9bd597175be (diff) | |
| download | perl-e70cb7eb5b13114b416be5e89ab15a7c16b720cf.tar.gz | |
Upgrade to CGI.pm 3.04.
p4raw-id: //depot/perl@22469
Diffstat (limited to 'lib/CGI.pm')
| -rw-r--r-- | lib/CGI.pm | 4 |
1 files changed, 2 insertions, 2 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 |