Date: Sun, 20 Jun 1999 15:51:22 -0700 (PDT) From: David Muir Sharnoff <muir@idiom.com> To: FreeBSD-gnats-submit@freebsd.org Subject: bin/12311: Sys::Hostname.pm hangs forever Message-ID: <199906202251.PAA97334@idiom.com>
next in thread | raw e-mail | index | archive | help
>Number: 12311 >Category: bin >Synopsis: Hostname.pm hangs forever >Confidential: no >Severity: non-critical >Priority: medium >Responsible: freebsd-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: sw-bug >Submitter-Id: current-users >Arrival-Date: Sun Jun 20 16:00:01 PDT 1999 >Closed-Date: >Last-Modified: >Originator: David Muir Sharnoff >Release: FreeBSD 3.2-RELEASE i386 >Organization: Idiom >Environment: >Description: >How-To-Repeat: The following will hang forever perl -MSys::Hostname -e '$SIG{"CHLD"} = "IGNORE"; hostname();' >Fix: I'm not sure what the real problem is, but the following change to Hostname.pm will cause the problem to go away. Index: contrib/perl5/lib/Sys//Hostname.pm =================================================================== RCS file: /usr/cvs/src/contrib/perl5/lib/Sys/Hostname.pm,v retrieving revision 1.1.1.1 diff -c -r1.1.1.1 Hostname.pm *** Hostname.pm 1998/09/09 06:59:55 1.1.1.1 --- Hostname.pm 1999/06/20 22:23:54 *************** *** 94,100 **** # method 3 - trusty old hostname command || eval { local $SIG{__DIE__}; ! $host = `(hostname) 2>/dev/null`; # bsdish } # method 4 - sysV uname command (may truncate) --- 94,100 ---- # method 3 - trusty old hostname command || eval { local $SIG{__DIE__}; ! $host = `hostname 2>/dev/null`; # bsdish } # method 4 - sysV uname command (may truncate) >Release-Note: >Audit-Trail: >Unformatted: To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-bugs" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199906202251.PAA97334>