sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-10-22 07:33:16 +03:00
Code Activity

r22374: fix perl warnings

Browse Source 
metze
This commit is contained in:
Stefan Metzmacher
2007-04-19 14:51:46 +00:00
committed by Gerald (Jerry) Carter
parent 54bfc1dccc
commit e8dd140a03
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/script/tests/SocketWrapper.pm
View File

@@ -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;
}