Lines Matching refs:fh
58 my $fh;
59 open($fh, '<', $f) || die("Can't open $pf: $!\n");
60 while (defined(my $line = <$fh>)) {
66 close($fh);
74 my $fh;
102 open($fh, '<', 'patchlevel.h') || die("Can't open patchlevel.h: $!\n");
103 while (defined(my $line = <$fh>)) {
150 open($fh, '>', 'config.over') || die("Can't open config.over: $!\n");
151 print $fh <<"EOF";
180 close($fh);