Re: delete_all failure [perl #20710]

Nicholas Clark <nick@ccl4.org> writes:

> On Thu, May 15, 2003 at 04:38:18PM -0700, Doug Halperin wrote:
> > I fail altogether on delete all
> > 
> > the code
> > 
> > #!/usr/bin/perl -Tw
> > 
> > use CGI;
> > use Data::Dumper;
> > 
> > 
> > use strict;
> > 
> > 
> > my $cgi = new CGI;
> > 
> > print '=' . $cgi->param('b') . "=\n";
> > print Dumper({$cgi->Vars});
> > 
> > 
> > $cgi->delete_all();
> > print '=' . $cgi->param('b') . "=\n";
> > print Dumper({$cgi->Vars});
> > 
> > $cgi->delete('a');
> > print '=' . $cgi->param('b') . "=\n";
> > print Dumper({$cgi->Vars});
> > 
> > 
> > -----
> > 
> > produces this output:
> > doug$ ./t3 'a=1&b=2'
> > =2=
> > $VAR1 = {
> >           'a' => '1',
> >           'b' => '2'
> >         };
> > =2=
> > $VAR1 = {
> >           'b' => '2'
> >         };
> > =2=
> > $VAR1 = {
> >           'b' => '2'
> >         };
> > doug$
> > 
> > 
> > Any thoughts?
> 
> I'm not convinced that this is a bug in the perl interpreter, so I'm
> not sure if perl5-porters is really the correct place for this.

CGI.pm is part of the standard perl distribution, so it *is* the
correct place.

> For
> all versions of perl 5.6.0 or later that I've tried I see
> 
> $ perl5.8.0 -Tw  t3 'a=1&b=2'
> =2=
> $VAR1 = {
>           'a' => '1',
>           'b' => '2'
>         };
> Use of uninitialized value in concatenation (.) or string at t3 line 17.
> ==
> $VAR1 = {};
> Use of uninitialized value in concatenation (.) or string at t3 line 21.
> ==
> $VAR1 = {};
> 
> Nicholas Clark
> 

Regards,
	Slaven

-- 
Slaven Rezic - slaven@rezic.de

Tk-AppMaster: a perl/Tk module launcher designed for handhelds
	http://tk-appmaster.sf.net

• delete_all failure [perl #20710] by Doug Halperin
• Re: delete_all failure [perl #20710] by Nicholas Clark
• Re: delete_all failure [perl #20710] by Slaven Rezic