diff --git a/source3/script/tests/test_smbclient_tarmode.pl b/source3/script/tests/test_smbclient_tarmode.pl
index b654c5eebc1..83be0697600 100755
--- a/source3/script/tests/test_smbclient_tarmode.pl
+++ b/source3/script/tests/test_smbclient_tarmode.pl
@@ -185,6 +185,7 @@ my $TAR = "$TMP/tarmode.tar";
 $LOCALPATH =~ s{[/\\]+$}{}g;
 $SHARE =~ s{[/\\]+$}{}g;
 $HOST =~ s{[/\\]+$}{}g;
+$DIR =~ s{^\.[/\\]+$}{}g;
 $DIR =~ s{[/\\]+$}{}g;
 
 if (!-d $LOCALPATH) {
@@ -346,7 +347,7 @@ sub test_creation_long_path {
     my $d = "a"x130;
     my @all;
 
-    for(qw( foo/a bar/b )) {
+    for (qw( foo/a bar/b )) {
         push @all, File->new_remote("$d/$_");
     }