make Sys::Hostname safe against C<$SIG{CHLD}='IGNORE'> (suggested

by David Muir Sharnoff <muir@idiom.com>)

p4raw-id: //depot/perl@3631

diff --git a/lib/Sys/Hostname.pm b/lib/Sys/Hostname.pm
index 95f9a99a7abf278fda6df19258ac7c92765d7890..e96822e414c881045e7cda962dc72866c2dc1f75 100644 (file)
--- a/lib/Sys/Hostname.pm
+++ b/lib/Sys/Hostname.pm
@@ -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
     }