And use POSIX::uname for the hostname

svn path=/trunk/netsurf/; revision=12061
This commit is contained in:
Daniel Silverstone 2011-03-15 15:49:08 +00:00
parent 6d2a7a3495
commit 775a139103

View File

@ -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`;