Lines Matching refs:fh
1257 open my $fh, $mode, $file or croak_255("Can't open $file: $!");
1258 ${*$fh{SCALAR}} = $file;
1259 return $fh;
1263 my $fh = shift;
1264 return if close $fh;
1265 croak_255("Can't close: $!") unless ref $fh eq 'GLOB';
1266 croak_255("Can't close ${*$fh{SCALAR}}: $!");
1341 my $fh = open_or_die($file);
1342 while (<$fh>) {
1353 my $fh = open_or_die($file);
1356 <$fh>;
1358 die_255("Can't read $file: $!") unless defined $orig && close $fh;
1361 $fh = open_or_die($file, '>');
1362 print $fh $new or die_255("Can't print to $file: $!");
1363 close_or_die($fh);
1514 open my $fh, '|-', 'patch', '-p1' or die_255("Can't run patch: $!");
1515 print $fh $patch_to_use;
1516 return if close $fh;
1553 my $fh = open_or_die($file);
1554 my $line = <$fh>;
1644 my $fh = open_or_die($file);
1645 while (<$fh>) {
1656 close_or_die($fh);
1982 my $fh = open_or_die($ARGV[0]);
1983 my $line = <$fh>;
2038 my $fh = open_or_die('MANIFEST');
2039 while (<$fh>) {
2046 close_or_die($fh);
2058 $fh = open_or_die($pathname, '>');
2059 close_or_die($fh);
3174 my $fh = open_or_die('hints/linux.sh', '>>');
3175 print $fh <<'EOT' or die_255($!);
3186 close_or_die($fh);
3463 my $fh = open_or_die($wrapper, '>');
3464 print $fh <<"EOT";
3468 close_or_die($fh);
4716 my $fh = open_or_die($file);
4717 my $line = <$fh>;
4718 close_or_die($fh);