From 6084826d883dbb4661aa064e63d87aa2c2d0677d Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 30 Dec 2005 15:39:53 +0000 Subject: POSIX now declares missing constants as sub ... ();, so Net::Ping needs to define them with a prototype to match. p4raw-id: //depot/perl@26540 --- lib/Net/Ping.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lib/Net') diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm index 993b640c29..2302b0ba74 100644 --- a/lib/Net/Ping.pm +++ b/lib/Net/Ping.pm @@ -16,7 +16,7 @@ use Carp; @ISA = qw(Exporter); @EXPORT = qw(pingecho); -$VERSION = "2.31_03"; +$VERSION = "2.31_04"; sub SOL_IP { 0; }; sub IP_TOS { 1; }; @@ -35,11 +35,11 @@ $syn_forking = 0; if ($^O =~ /Win32/i) { # Hack to avoid this Win32 spewage: # Your vendor has not defined POSIX macro ECONNREFUSED - *ECONNREFUSED = sub {10061;}; # "Unknown Error" Special Win32 Response? - *ENOTCONN = sub {10057;}; - *ECONNRESET = sub {10054;}; - *EINPROGRESS = sub {10036;}; - *EWOULDBLOCK = sub {10035;}; + *ECONNREFUSED = sub() {10061;}; # "Unknown Error" Special Win32 Response? + *ENOTCONN = sub() {10057;}; + *ECONNRESET = sub() {10054;}; + *EINPROGRESS = sub() {10036;}; + *EWOULDBLOCK = sub() {10035;}; # $syn_forking = 1; # XXX possibly useful in < Win2K ? }; -- cgit v1.2.1