Lines Matching refs:fh
229 my $fh = 'FH' . $file;
230 $fh =~ s/\W/_/g;
231 $out .= tab . "tar(*$fh, \$name)";
234 $initfile .= "open($fh, " . quote('> ' . $file) .
235 qq{) || die "Can't open $fh: \$!\\n";\n};
240 my $fh = 'FH' . $file;
241 $fh =~ s/\W/_/g;
242 $out .= tab . "cpio(*$fh, \$name, '$1')";
246 $initfile .= "open($fh, " . quote('> ' . $file) .
247 qq{) || die "Can't open $fh: \$!\\n";\n};
460 my ($fh, $varref, $blksz) = @_;
464 syswrite($fh, $$varref, $blksz);
466 ++$blocks{$fh};
481 my ($fh, $fname, $nc) = @_;
508 $nc{$fh} = $nc;
510 $cpout{$fh} .=
525 $cpout{$fh} .= "\0" if length($cpout{$fh}) & 1;
526 $cpout{$fh} .= pack("SSSSSSSSLSLa*",
533 $cpout{$fh} .= $text;
536 flush($fh, \$cpout{$fh}, 5120)
537 while ($l = length($cpout{$fh})) >= 5120;
538 while (sysread(IN, $cpout{$fh}, 5120 - $l, $l)) {
539 flush($fh, \$cpout{$fh}, 5120);
540 $l = length($cpout{$fh});
547 for my $fh (keys %cpout) {
548 cpio($fh, undef, $nc{$fh});
549 $cpout{$fh} .= "0" x (5120 - length($cpout{$fh}));
550 flush($fh, \$cpout{$fh}, 5120);
551 print $blocks{$fh} * 10, " blocks\n";
565 my ($fh, $fname) = @_;
576 if ($linkname = $linkseen{$fh, $dev, $ino}) {
585 $linkseen{$fh, $dev, $ino} = $fname;
634 $tarout{$fh} .= $header;
635 $tarout{$fh} .= "\0" x (512 - $l) if $l;
638 flush($fh, \$tarout{$fh}, 10240)
639 while ($l = length($tarout{$fh})) >= 10240;
640 while (sysread(IN, $tarout{$fh}, 10240 - $l, $l)) {
641 my $slop = length($tarout{$fh}) % 512;
642 $tarout{$fh} .= "\0" x (512 - $slop) if $slop;
643 flush($fh, \$tarout{$fh}, 10240);
644 $l = length($tarout{$fh});
652 for my $fh (keys %tarout) {
653 $len = 10240 - length($tarout{$fh});
655 $tarout{$fh} .= "\0" x $len;
656 flush($fh, \$tarout{$fh}, 10240);