test_smbclient_tarmode.pl: sanitize $DIR + whitespace

Signed-off-by: Aurélien Aptel <aurelien.aptel@gmail.com>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Reviewed-by: Jim McDonough <jmcd@samba.org>

diff --git a/source3/script/tests/test_smbclient_tarmode.pl b/source3/script/tests/test_smbclient_tarmode.pl
index b654c5eebc1b69069cc33b139ef4e8aa8fd883f4..83be0697600318571c79178042f3446f72489f4c 100755 (executable)
--- 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/$_");
     }