Bug 457085

Description of problem: The CGI.pm package's exist() function override for tied
hashes fails. It always reports any given param does not exist. This can
potentially break a _lot_ of CGI scripts.


Version-Release number of selected component (if applicable):
CGI.pm 3.38 (works in 3.37), which was included in
perl-5.10.0-31.fc9.i386 built July 24.

How reproducible: Very; every time.


Steps to Reproduce:
1. Run the attached program like so:
    exists_test.pl a=1 b=2 c=3
2.
3.
  
Actual results:
Key: 'a', does not exist (yet it has value '1').
Deleting $input{a}.
Key: 'a', does not exist.

Key: 'b', does not exist (yet it has value '2').
Deleting $input{b}.
Key: 'b', does not exist.

Key: 'c', does not exist (yet it has value '3').
Deleting $input{c}.
Key: 'c', does not exist.


Expected results:
Key: 'a', does exist (yet it has value '1').
Deleting $input{a}.
Key: 'a', does not exist.

Key: 'b', does exist (yet it has value '2').
Deleting $input{b}.
Key: 'b', does not exist.

Key: 'c', does exist (yet it has value '3').
Deleting $input{c}.
Key: 'c', does not exist.


Additional info: The problem is line 1179 of CGI.pm, which currently reads:
    exists $_[0]->{$_[1]};
but should be:
    exists $_[0]->{param}{$_[1]};