| Date: | Thu, 30 May 2002 09:44:27 -0600 (MDT) |
| From: | Rob Brown <rob [...] roobik.com> |
| To: | Jock Main <remmie [...] staff.iinet.net.au> |
| Cc: | <bbb [...] cpan.org>, <bug-Net-Ping [...] rt.cpan.org> |
| Subject: | Re: Net::Ping |
Jock,
I think I'm going crazy. Everything seems to
work perfectly for me. Check out my session
below:
--- clip ---
[root@localhost Net-Ping]# cat ping.pl
#!/usr/bin/perl
use strict;
use Net::Ping;
my $pinger = Net::Ping->new ('icmp');
my $ip = "127.0.0.1";
print "ip = [$ip]\n";
my ($vara) = $pinger->ping($ip,10);
print "Array = [$vara]\n";
my $vars = $pinger->ping($ip,10);
print "Scalar = [$vars]\n";
[root@localhost Net-Ping]#
ip = [127.0.0.1]
Array = [1]
Scalar = [1]
[root@localhost Net-Ping]# perl -V
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
Platform:
osname=linux, osvers=2.4.6-3.1enterprise, archname=i386-linux
uname='linux stripples.devel.redhat.com 2.4.6-3.1enterprise #1 smp tue jul 24 14:03:17 edt 2001 i686 unknown '
[...]
[root@localhost Net-Ping]#
--- clap ---
There have been several complaints that Net::Ping
suddenly stopped working with Perl 5.7.3, but
noone will provide me with any details. And I
don't have a perl 5.7.3 machine available for
testing anyway.
Jock, please provide me with easy steps to duplicate.
I'm pretty confident that if I can get the error
myself, I should be able to rip this bug out. What
version of perl do you have? Give me the "perl -V"
output.
Rob Brown
bbb@cpan.org
On Thu, 30 May 2002, Jock Main wrote:
Show quoted text
>
> Hey,
>
> Experiencing strange issues with Net::Ping module, possibily a bug.
>
> * the relevant code....
>
> use Net::Ping;
> my $pinger = Net::Ping->new ('icmp');
>
> my ($blah) = $pinger->ping($ip,10);
> print "blah = $blah\n";
>
> * the output....
>
> blah = 0
> sanford1:202.8.100.0 did not ping!
> blah = 0
> pdcruze:203.0.178.134 did not ping!
> blah = 0
> fquest:192.207.152.0 did not ping!
> blah = 0
>
> * tcpdump running at the time....
>
> noc:/home/spamchek# tcpdump host 203.0.178.134
> tcpdump: listening on eth0
> 16:56:15.051300 noc.iinet.net.au > orac.iinet.net.au: icmp: echo request
> 16:56:15.167112 orac.iinet.net.au > noc.iinet.net.au: icmp: echo reply
>
> 2 packets received by filter
> 0 packets dropped by kernel
> noc:/home/spamchek#
>
> * Normal ping from the host....
>
> noc:/home/spamchek# ping 203.0.178.134
> PING 203.0.178.134 (203.0.178.134): 56 data bytes
> 64 bytes from 203.0.178.134: icmp_seq=0 ttl=59 time=144.3 ms
> 64 bytes from 203.0.178.134: icmp_seq=1 ttl=59 time=142.6 ms
>
>
> Was using 2.02 so updated to 2.18.
> (Moved 2.02 to Ping2.pm to ensure it wasnt using old version)
> Same result.
>
> Cant see any stupidity factor in there but thats never stopped me before
> :)
>
> Any suggestions?
>
> Rgds,
>
> remzs
>
> PS Dont take this as a curt email, I find you guys generally prefer pure
> facts :)
>
> --
> Avoid giving LSD to guide dogs.
>