Replace Sys::Hostname::hostname with a direct call to /bin/hostname,

to work around an annoying bug in the former that caused a warning
when using CORE::system() later on.

1 files changed, 4 insertions, 2 deletions

diff --git a/CVSROOT/cfg.pm b/CVSROOT/cfg.pm
index 0ffc67e..7100779 100755
--- a/CVSROOT/cfg.pm
+++ b/CVSROOT/cfg.pm
@@ -99,8 +99,10 @@ $MAIL_ON_DIR_CREATION = 0;
 # Remember to comment out if using for other purposes.
 ##############################################################
 ##############################################################
-use Sys::Hostname;		# get hostname() function
-if (hostname() =~ /^(freefall|internat)\.freebsd\.org$/i) {
+my $hostname = `/bin/hostname`;
+die "Can't determine hostname!\n" if $? >> 8;
+chomp $hostname;
+if ($hostname =~ /^(freefall|internat)\.freebsd\.org$/i) {
 	my $meister;
 
 	$MAILADDRS='cvs-committers@FreeBSD.org cvs-all@FreeBSD.org';