Lines Matching refs:fh
35 my $fh = shift;
36 my $rt = reftype($fh) || '';
38 return defined(fileno($fh)) ? $fh : undef
41 if (reftype(\$fh) eq 'GLOB') { # handle openhandle(*DATA)
42 $fh = \(my $tmp=$fh);
48 (tied(*$fh) or defined(fileno($fh)))
49 ? $fh : undef;
209 $fh = openhandle(*STDIN); # \*STDIN
210 $fh = openhandle(\*STDIN); # \*STDIN
211 $fh = openhandle(*NOTOPEN); # undef
212 $fh = openhandle("scalar"); # undef