Lines Matching refs:fname
481 my ($fh, $fname, $nc) = @_;
487 if ( ! defined $fname ) {
488 $fname = 'TRAILER!!!';
498 warn "Couldn't open $fname: $!\n";
507 $fname =~ s#^\./##;
521 length($fname)+1,
523 $fname);
528 length($fname)+1, $size,
529 $fname . (length($fname) & 1 ? "\0" : "\0\0"));
565 my ($fh, $fname) = @_;
585 $linkseen{$fh, $dev, $ino} = $fname;
591 warn "Couldn't open $fname: $!\n";
604 if (length($fname) > 100) {
605 ($prefix, $fname) = ($fname =~ m#\A(.*?)/(.{,100})\Z(?!\n)#);
606 if (!defined($fname) || length($prefix) > 155) {
608 $fname, "\n";
615 $fname,