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>