X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_tarCreate;h=ce67747005d599174ce96c0d2f970554ffc004f1;hp=071de333a9d0d9935bad487e6d829caf4789fca9;hb=17dcbbebb871212f90b81bb97f8d1feb528bdc43;hpb=d13d57e035dac9362ca393991b978530402969b7

diff --git a/bin/BackupPC_tarCreate b/bin/BackupPC_tarCreate
index 071de33..ce67747 100755
--- a/bin/BackupPC_tarCreate
+++ b/bin/BackupPC_tarCreate
@@ -227,7 +227,7 @@ sub archiveWrite
 #
 sub archiveWriteHardLinks
 {
-    my $fh = @_;
+    my($fh) = @_;
     foreach my $hdr ( @HardLinks ) {
         $hdr->{size} = 0;
 	my $name = $hdr->{linkname};
@@ -483,6 +483,7 @@ sub TarWriteFile
 	    $done = 1;
 	} else {
 	    foreach my $arg ( @ARGV ) {
+		$arg = "/" if ( $arg eq "." );
 		$arg =~ s{^\./+}{/};
 		$arg =~ s{/+$}{};
 		$done = 1 if ( $name eq $arg || $name =~ /^\Q$arg\// );
@@ -504,7 +505,7 @@ sub TarWriteFile
             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 ) {
         #