Commit 49f71c5c authored by Stefan Metzmacher's avatar Stefan Metzmacher Committed by Gerald (Jerry) Carter

r22374: fix perl warnings

metze
(This used to be commit e8dd140a)
parent 3c5618fb
......@@ -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;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment