svn commit: samba r22374 - in branches/SAMBA_4_0/source/script/tests: .

[metze at samba.org]

Author: metze
Date: 2007-04-19 14:51:46 +0000 (Thu, 19 Apr 2007)
New Revision: 22374

WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=22374

Log:
fix perl warnings

metze
Modified:
   branches/SAMBA_4_0/source/script/tests/SocketWrapper.pm


Changeset:
Modified: branches/SAMBA_4_0/source/script/tests/SocketWrapper.pm
===================================================================
--- branches/SAMBA_4_0/source/script/tests/SocketWrapper.pm	2007-04-19 14:21:56 UTC (rev 22373)
+++ branches/SAMBA_4_0/source/script/tests/SocketWrapper.pm	2007-04-19 14:51:46 UTC (rev 22374)
@@ -35,8 +35,18 @@
 		}
 	}
 
-	$ENV{SOCKET_WRAPPER_PCAP_DIR} = $pcap_dir;
-	$ENV{SOCKET_WRAPPER_DIR} = $dir;
+	if (defined($pcap_dir)) {
+		$ENV{SOCKET_WRAPPER_PCAP_DIR} = $pcap_dir;
+	} else {
+		delete $ENV{SOCKET_WRAPPER_PCAP_DIR};
+	}
+
+	if (defined($dir)) {
+		$ENV{SOCKET_WRAPPER_DIR} = $dir;
+	} else {
+		delete $ENV{SOCKET_WRAPPER_DIR};
+	}
+
 	return $dir;
 }