From 775a139103fbaebb529d9bbf104598a2c19a4879 Mon Sep 17 00:00:00 2001
From: Daniel Silverstone <dsilvers@netsurf-browser.org>
Date: Tue, 15 Mar 2011 15:49:08 +0000
Subject: And use POSIX::uname for the hostname

svn path=/trunk/netsurf/; revision=12061
---
 utils/svn-testament.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'utils/svn-testament.pl')

diff --git a/utils/svn-testament.pl b/utils/svn-testament.pl
index 17e697004..a1015e60e 100755
--- a/utils/svn-testament.pl
+++ b/utils/svn-testament.pl
@@ -78,7 +78,7 @@ $testament .= "#define GECOS \"$userinfo{GECOS}\"\n";
 my $qroot = $root;
 $qroot =~ s/"/\\"/g;
 
-my $hostname = $ENV{HOSTNAME};
+my $hostname = POSIX::uname()[1];
 
 if ( !defined ( $hostname ) ) { # Try hostname command if env-var empty
    $hostname = `hostname`;
-- 
cgit v1.2.3