4df0a8b
diff -up perl-5.10.0/lib/CGI.pm.tied perl-5.10.0/lib/CGI.pm
4df0a8b
--- perl-5.10.0/lib/CGI.pm.tied	2008-07-30 08:37:48.000000000 +0200
4df0a8b
+++ perl-5.10.0/lib/CGI.pm	2008-07-30 08:41:38.000000000 +0200
4df0a8b
@@ -1176,7 +1176,7 @@ END_OF_FUNC
4df0a8b
 
4df0a8b
 'EXISTS' => <<'END_OF_FUNC',
4df0a8b
 sub EXISTS {
4df0a8b
-    exists $_[0]->{$_[1]};
4df0a8b
+    exists $_[0]->{param}{$_[1]};
4df0a8b
 }
4df0a8b
 END_OF_FUNC
4df0a8b