This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make Sys::Hostname safe against C<$SIG{CHLD}='IGNORE'> (suggested
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 7 Jul 1999 02:03:34 +0000 (02:03 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 7 Jul 1999 02:03:34 +0000 (02:03 +0000)
by David Muir Sharnoff <muir@idiom.com>)

p4raw-id: //depot/perl@3631

lib/Sys/Hostname.pm

index 95f9a99..e96822e 100644 (file)
@@ -94,6 +94,7 @@ sub hostname {
     # method 3 - trusty old hostname command
     || eval {
        local $SIG{__DIE__};
+       local $SIG{CHLD};
        $host = `(hostname) 2>/dev/null`; # bsdish
     }