sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-08-15 13:49:28 +03:00
Code Activity

r22374: fix perl warnings

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

14
source4/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;
}