delete_all failure [perl #20710]

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

• 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