Bug #34117 for Net-Ping: Problem (and maybe a solution) for Net-Ping 2.34

I noticed an issue with Net-Ping.pm version 2.34. I am running ActiveState perl under Win/XP SP2. Here is the output of perl -v: M:\>perl -v This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 18 registered patches, see perl -V for more detail) Copyright 1987-2007, Larry Wall Binary build 822 [280952] provided by ActiveState http://www.ActiveState.com Built Jul 31 2007 19:34:48 Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. The following code will show the issue: use Net::Ping; When I invoke perl with that single line of code, ActiveState perl v5.8.8 spits out the following: Prototype mismatch: sub Net::Ping::ECONNREFUSED: none vs () at C:/perl/site/lib/ Net/Ping.pm line 38. Prototype mismatch: sub Net::Ping::ENOTCONN: none vs () at C:/perl/site/lib/Net/ Ping.pm line 39. Prototype mismatch: sub Net::Ping::ECONNRESET: none vs () at C:/perl/site/lib/Ne t/Ping.pm line 40. Prototype mismatch: sub Net::Ping::EINPROGRESS: none vs () at C:/perl/site/lib/N et/Ping.pm line 41. Prototype mismatch: sub Net::Ping::EWOULDBLOCK: none vs () at C:/perl/site/lib/N et/Ping.pm line 42. Looking at Net-Ping.pm I found that those five lines use the syntax 'sub()'. When I changed my local copy of Net-Ping.pm to use the syntax 'sub' instead, ActiveState perl v5.8.8 no longer spits out the error messages and the module works as expected. Thanks, Dennis McCoy