From b6f25650f1adcc75f0a97e31c31c9980326b7ab6 Mon Sep 17 00:00:00 2001 From: Michael Adam Date: Mon, 4 Jul 2011 10:28:43 +0200 Subject: selftest: eliminate perl warnings (my $cmd masks earlier definition...) --- selftest/target/Samba4.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'selftest/target/Samba4.pm') diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm index 70e3cf7b1b..f238e149d1 100644 --- 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}"; -- cgit