Subject: | security patch for lib\IPC\Run\Win32IO.pm s/INADDR_ANY/$loopback/ |
Inspired by
http://www.perlmonks.org/?node_id=769183
# Firewall complaining about IPC::Run
INADDR_ANY can be your external ip,
IPC::Run should only listen on localhost
Thank you
Subject: | patch-IPC-Run-0.84.txt |
--- lib\IPC\Run\Win32IO.pm.old 2009-09-14 08:37:16.140625000 -0700
+++ lib\IPC\Run\Win32IO.pm 2009-09-14 08:37:36.343750000 -0700
@@ -393,7 +393,7 @@
{
$port = $next_port;
$next_port = 2048 if ++$next_port > 65_535;
- unless ( bind $listener, sockaddr_in( $port, INADDR_ANY ) ) {
+ unless ( bind $listener, sockaddr_in( $port, $loopback ) ) {
push @errors, "$! on port $port";
croak join "\n", @errors if @errors > 10;
goto PORT_FINDER_LOOP;