Lines Matching refs:fh
60 open my $fh, '<', $MASTER_CFG;
61 while (<$fh>) {
68 close $fh;
76 open my $fh, '<', 'MANIFEST';
77 while (<$fh>) {
80 close $fh;
95 open my $fh, '<', $cfg or die "$cfg: $!\n";
100 while (<$fh>) {
106 while (<$fh>) {
127 close $fh;
169 my $fh = open_new($cfg);
170 print $fh @{$_} foreach @lines;
171 close_and_rename($fh);