Bug #250 for Net-Ping: FAIL Net-Ping-2.11 i386-linux 2.4.8-11mdkenterprise

> > > This message about Net-Ping was sent to you by arnaud@romeconcept.com via rt.cpan.org > > <URL: https://rt.cpan.org/Ticket/Display.html?id=250 > > > This distribution has been tested as part of the cpan-testers > effort to test as many new uploads to CPAN as possible. See > http://testers.cpan.org/ > > Please cc any replies to cpan-testers@perl.org to keep other > test volunteers informed and to prevent any duplicate effort. > > -- > > I've quickly checked some tests failing (ping("localhost" and ping("ftp.geocities.com")...) > I don't know why they failed I can just mention that on the command line the associated ping works just well... > > PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl5/5.6.1/i386-linux -I/usr/lib/perl5/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); $verbose=1; runtests @ARGV;' t/*.t > t/100_load...........1..1 > ok 1 > ok > t/110_icmp_inst......1..2 > ok 1 > ok 2 > ok > t/120_udp_inst.......1..2 > ok 1 > ok 2 > ok > t/130_tcp_inst.......1..2 > ok 1 > ok 2 > ok > t/140_stream_inst....1..2 > ok 1 > ok 2 > ok > t/200_ping_tcp.......1..13 > ok 1 > ok 2 > not ok 3 > # Failed test 3 in t/200_ping_tcp.t at line 44 > ok 4 > ok 5 > ok 6 > ok 7 > not ok 8 > # Failed test 8 in t/200_ping_tcp.t at line 61 > ok 9 > ok 10 > ok 11 > ok 12 > ok 13 > FAILED tests 3, 8 > Failed 2/13 tests, 84.62% okay > t/300_ping_stream....1..12 > ok 1 > ok 2 # Local echo port is off > ok 3 # Local echo port is off > ok 4 # Local echo port is off > ok 5 # Local echo port is off > ok 6 # Local echo port is off > ok 7 # Local echo port is off > ok 8 # Local echo port is off > ok 9 # Local echo port is off > ok 10 # Local echo port is off > ok 11 # Local echo port is off > ok 12 # Local echo port is off > ok > Failed Test Stat Wstat Total Fail Failed List of Failed > ------------------------------------------------------------------------------- > t/200_ping_tcp.t 13 2 15.38% 3 8 > Failed 1/7 test scripts, 85.71% okay. 2/34 subtests failed, 94.12% okay. > make: *** [test_dynamic] Erreur 9 > > > -- > > Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration: > Platform: > osname=linux, osvers=2.4.8-11mdkenterprise, archname=i386-linux > uname='linux no.mandrakesoft.com 2.4.8-11mdkenterprise #1 smp wed aug 22 16:05:18 cest 2001 i686 unknown ' > config_args='-des -Darchname=i386-linux -Dd_dosuid -Ud_csh -Duseshrplib -Doptimize=-O3 -fomit-frame-pointer -pipe -mcpu=pentiumpro -march=i586 -ffast-math -fno-strength-reduce -Dprefix=/usr -Di_ndbm -Di_gdbm -Di_shadow -Di_syslog -Uuselargefiles -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/lib/perl5/man/man3' > hint=recommended, useposix=true, d_sigaction=define > usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef > useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef > use64bitint=undef use64bitall=undef uselongdouble=undef > Compiler: > cc='cc', ccflags ='-fno-strict-aliasing', > optimize='-O3 -fomit-frame-pointer -pipe -mcpu=pentiumpro -march=i586 -ffast-math -fno-strength-reduce', > cppflags='-fno-strict-aliasing' > ccversion='', gccversion='2.96 20000731 (Mandrake Linux 8.1 2.96-0.62mdk)', gccosandvers='' > intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 > d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 > ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4 > alignbytes=4, usemymalloc=n, prototype=define > Linker and Libraries: > ld='cc', ldflags =' -L/usr/local/lib' > libpth=/usr/local/lib /lib /usr/lib > libs=-lnsl -ldl -lm -lc -lcrypt -lutil > perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil > libc=/lib/libc-2.2.4.so, so=so, useshrplib=true, libperl=libperl.so > Dynamic Linking: > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.6.1/i386-linux/CORE' > cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' > > >

---------- Forwarded message ---------- Date: Tue, 5 Feb 2002 13:46:30 -0700 (MST) From: Rob Brown <rob@roobik.com> To: via RT <bug-Net-Ping@rt.cpan.org> Cc: arnaud@romeconcept.com, perl5-porters@perl.org, bbb@cpan.org Subject: Re: [cpan #250] FAIL Net-Ping-2.11 i386-linux 2.4.8-11mdkenterprise Mr arnaud, As line 338 of Ping.pm specifies, the connect() call must set $! to a string with smells like m/Connection Refused/i or else it has to actually connect successfully. Here is what I get on my linux box: # A quick telnet check [rob@box Net-Ping]$ telnet localhost 80 Trying 127.0.0.1... telnet: Unable to connect to remote host: Connection refused [rob@box Net-Ping]$ # And perl style [rob@box Net-Ping]$ perl -e 'use Socket; socket(F, PF_INET, SOCK_STREAM, (getprotobyname("tcp"))[2]) || die "socket: $!"; connect(F, sockaddr_in(80, inet_aton("127.0.0.1"))) || die "connect: $!";' connect: Connection refused at -e line 1. [rob@box Net-Ping]$ which seem to work perfectly because they contain the magic string of "Connection refused". Please tell me what the output appears like on the platform that failed these tests. I'm using the stock perl 5.6.0 that came with RedHat Linux 7.0 distro: [rob@box Net-Ping]$ perl -V Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration: Platform: osname=linux, osvers=2.2.5-22smp, archname=i386-linux uname='linux porky.devel.redhat.com 2.2.5-22smp #1 smp wed jun 2 09:11:51 edt 1999 i686 unknown ' config_args='-des -Doptimize=-O2 -march=i386 -mcpu=i686 -Dcc=gcc -Dcccdlflags=-fPIC -Dinstallprefix=/usr -Dprefix=/usr -Darchname=i386-linux -Dd_dosuid -Dd_semctl_semun -Di_db -Di_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Uuselargefiles' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=undef use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef Compiler: cc='gcc', optimize='-O2 -march=i386 -mcpu=i686', gccversion=2.96 20000731 (experimental) cppflags='-fno-strict-aliasing' ccflags ='-fno-strict-aliasing' stdchar='char', d_stdstdio=define, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -ldl -lm -lc -lcrypt libc=/lib/libc-2.1.92.so, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib' Or any other details or ideas that could be helpful... Rob Brown CPANID: BBB On Mon, 4 Feb 2002, via RT wrote: