--- C:\perl\5.14.1\lib\CGI.pm   2011-06-03 08:36:31.000000000 -0700
+++ CGI.pm      2011-09-14 07:49:32.031250000 -0700
@@ -530,7 +530,7 @@
             my $val = $QUERY_PARAM{$name}; # always an arrayref;
             $self->param('-name'=>$name,'-value'=> $val);
             if (defined $val and ref $val eq 'ARRAY') {
-                for my $fh (grep {defined(fileno($_))} @$val) {
+                for my $fh (grep {ref($_) and defined(fileno($_))} @$val) {
                    seek($fh,0,0); # reset the filehandle.
                 }