#
sub archiveWriteHardLinks
{
- my $fh = @_;
+ my($fh) = @_;
foreach my $hdr ( @HardLinks ) {
$hdr->{size} = 0;
my $name = $hdr->{linkname};
$done = 1;
} else {
foreach my $arg ( @ARGV ) {
+ $arg = "/" if ( $arg eq "." );
$arg =~ s{^\./+}{/};
$arg =~ s{/+$}{};
$done = 1 if ( $name eq $arg || $name =~ /^\Q$arg\// );
my $name = $hdr->{linkname};
$name =~ s{^\./}{/};
$HardLinkExtraFiles{$name} = $hdr->{name};
- archiveWrite($fh, $hdr->{linkname}, $hdr->{name});
+ archiveWrite($fh, $name, $hdr->{name});
}
} elsif ( $hdr->{type} == BPC_FTYPE_SYMLINK ) {
#