Better use wildcard source ip.
This commit is contained in:
parent
1133138f86
commit
681f809f0a
|
@ -58,6 +58,7 @@ use Sys::Hostname;
|
||||||
|
|
||||||
my($iaddr,$proto,$paddr);
|
my($iaddr,$proto,$paddr);
|
||||||
$iaddr = gethostbyname(hostname());
|
$iaddr = gethostbyname(hostname());
|
||||||
|
$iaddr = pack('C4', 0,0,0,0);
|
||||||
$proto = getprotobyname('udp');
|
$proto = getprotobyname('udp');
|
||||||
$paddr = sockaddr_in(0, $iaddr); # 0 means let kernel pick
|
$paddr = sockaddr_in(0, $iaddr); # 0 means let kernel pick
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue