in reply to bad ping status with the forks module

On the failing system, what is the output from: 

perl -e 'use forks; print system("ping -c1 localhost"),"\n$?\n";print 
+$! if ($?==-1)'

[download]
I am trying to isolate the modules. This should verifiy that the problem is not in Net::Ping::External. 

perl -e 'print system("ping -c1 localhost"),"\n$?\n";print $! if ($?==
+-1)'
PING localhost.tan.us (127.0.0.1): 56 data bytes
64 bytes from 127.0.0.1: icmp_seq=0 ttl=64 time=0.133 ms

--- localhost.tan.us ping statistics ---
1 packets transmitted, 1 packets received, 0% packet loss
round-trip min/avg/max/stddev = 0.133/0.133/0.133/0.000 ms
0
0

[download]

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

Replies are listed 'Best First'.
Re^2: bad ping status with the forks module
by erc_fun (Initiate) on Jul 13, 2006 at 07:11 UTC
    Here the output on the failing system :

    perl -e 'use forks; print system("ping -c1 localhost"),"\n$?\n";print 
+$! if ($?==-1)'<br/>

PING localhost.localdomain (127.0.0.1) 56(84) bytes of data.
64 bytes from localhost.localdomain (127.0.0.1): icmp_seq=0 ttl=0 time
+=0.036 ms

--- localhost.localdomain ping statistics ---
1 packets transmitted, 1 received, 0% packet loss, time 0ms
rtt min/avg/max/mdev = 0.036/0.036/0.036/0.000 ms, pipe 2
-1
-1
No child processes

    [download]
[reply]
[d/l]

      That's what I thought. Threads is broke on your build of perl. Ping runs but system returns -1. You're going to have to recompile perl and have a look at the output from make.

      s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}
[reply]
[d/l]

        Sorry. s/Threads/Forks/

[reply]
        ok so, can you give me the method to recompile perl ?
        Thx
[reply]

In Section Seekers of Perl Wisdom