r22374: fix perl warnings

metze

diff --git a/source/script/tests/SocketWrapper.pm b/source/script/tests/SocketWrapper.pm
index 17c445714639a796d92c42183485ca2388ca4eb8..aa913d240e49ec4d42cca75bc89427ec2e30682c 100644 (file)
--- a/source/script/tests/SocketWrapper.pm
+++ b/source/script/tests/SocketWrapper.pm
@@ -35,8 +35,18 @@ sub setup_dir($$)
                }
        }
 
-       $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;
 }