Lines Matching refs:fh
121 my($fh) = FileHandle->new;
122 open $fh, "<$histfile" or last;
124 while (<$fh>) {
128 close $fh;
499 my $fh = FileHandle->new($lockfile) or
501 my $otherpid = <$fh>;
502 my $otherhost = <$fh>;
503 $fh->close;
586 my $fh;
587 unless ($fh = FileHandle->new(">$lockfile")) {
612 $fh->print($$, "\n");
613 $fh->print(hostname(), "\n");
615 $fh->close;
839 my($fh) = FileHandle->new;
840 open $fh, ">$histfile" or $CPAN::Frontend->mydie("Couldn't open >$histfile: $!");
842 print $fh @h;
843 close $fh;
1151 my($fh) = FileHandle->new;
1153 open $fh, ">$configpm" or
1155 $fh->print(qq[$msg\$CPAN::Config = \{\n]);
1157 $fh->print(
1164 $fh->print("};\n1;\n__END__\n");
1165 close $fh;
1213 my $fh = FileHandle->new;
1214 if ($fh->open(">$configpmtest")) {
1215 $fh->print("1;\n");
1240 my($configpm,$fh,$redo,$theycalled);
1592 my $fh = FileHandle->new($INC{$f});
1596 eval <$fh>;
1801 my($fh) = FileHandle->new(">$to") or Carp::croak "Can't open >$to: $!";
1802 $fh->print(
1822 $fh->close;
2806 my $fh = FileHandle->new;
2807 $fh->open("|$command") or die "Couldn't open ftp: $!";
2808 foreach (@dialog) { $fh->print("$_\n") }
2809 $fh->close; # Wait for process to complete
2896 my($fh,@machines,$hasdefault);
2898 $fh = FileHandle->new or die "Could not create a filehandle";
2900 if($fh->open($file)){
2903 NETRC: while (<$fh>) {
3205 my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
3207 while ($_ = $fh->READLINE) {
3365 undef $fh;
3383 my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
3386 while ($_ = $fh->READLINE) {
3400 undef $fh;
3700 my $fh = FileHandle->new;
3702 if (open $fh, $lc_file){
3704 my $eval = <$fh>;
3706 close $fh;
4027 my $fh = FileHandle->new;
4028 $fh->open(">$mpl")
4030 $fh->print(
4039 $fh->close;
4256 my $fh = FileHandle->new;
4257 if (open $fh, $chk_file){
4259 my $eval = <$fh>;
4261 close $fh;
4276 open($fh, $file);
4277 binmode $fh;
4278 my $eq = $self->eq_MD5($fh,$cksum->{$basename}{'md5'});
4279 $fh->close;
4280 $fh = CPAN::Tarzip->TIEHANDLE($file);
4288 while ($fh->READ($ref, 4096) > 0){
4322 # close $fh if fileno($fh);
4343 my($self,$fh,$expectMD5) = @_;
4346 while (read($fh, $data, 4096)){
4349 # $md5->addfile($fh);
4351 # warn "fh[$fh] hex[$hexdigest] aexp[$expectMD5]";
4554 # my $fh = IO::File->new("$system |"); # STDERR? STDIN?
4555 # $self->{writemakefile} .= <$fh>;
4669 my $fh;
4672 $fh = FileHandle->new("<$makefile\0")) {
4677 while (<$fh>) {
4966 my $fh = FileHandle->new;
4968 open($fh,$inst_file) or die "Could not open '$inst_file': $!";
4971 while (<$fh>) {
4981 close $fh;
5011 my $fh = FileHandle->new($manifest)
5024 while (<$fh>) {
5402 my $fh = FileHandle->new($locf)
5406 while (<$fh>) {
5415 close $fh;
5727 my $fh = FileHandle->new($pipe) or die "Could not pipe[$pipe]: $!";
5728 binmode $fh;
5729 $ret = bless {FH => $fh}, $class;
5745 my $fh = $self->{FH};
5746 return scalar <$fh>;
5760 my $fh = $self->{FH};
5761 return read($fh,$$ref,$length);
5774 my $fh = $self->{FH};
5775 $fh->close if defined $fh;