selftest: eliminate perl warnings (my $cmd masks earlier definition...)

diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm
index 70e3cf7b1b795764ccf9c5932e6a3e27374faf8c..f238e149d123d529a69a9d5fe34b6a2cbf9298fa 100644 (file)
--- a/selftest/target/Samba4.pm
+++ b/selftest/target/Samba4.pm
@@ -929,7 +929,7 @@ sub provision_rpc_proxy($$$)
        }
 
        # Setting up delegation runs in the context of the DC for now
-       my $cmd = "";
+       $cmd = "";
        $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$dcvars->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
        $cmd .= "KRB5_CONFIG=\"$dcvars->{KRB5_CONFIG}\" ";
        $cmd .= "$samba_tool delegation for-any-protocol '$ret->{NETBIOSNAME}\$' on";
@@ -941,7 +941,7 @@ sub provision_rpc_proxy($$$)
        }
 
        # Setting up delegation runs in the context of the DC for now
-       my $cmd = "";
+       $cmd = "";
        $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$dcvars->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
        $cmd .= "KRB5_CONFIG=\"$dcvars->{KRB5_CONFIG}\" ";
        $cmd .= "$samba_tool delegation add-service '$ret->{NETBIOSNAME}\$' cifs/$dcvars->{SERVER}";