develooper Front page | perl.perl5.porters | Postings from May 2003

delete_all failure [perl #20710]

Thread Next
From:
Doug Halperin
Date:
May 16, 2003 01:20
Subject:
delete_all failure [perl #20710]
Message ID:
00ad01c31b3b$0ffc01a0$1d01a8c0@pictopia.com
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?



Doug Halperin
doug@pictopia.com
510/658-5877 x103
Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About