diff options
| author | Daniel Silverstone <dsilvers@netsurf-browser.org> | 2011-03-15 15:49:08 +0000 |
|---|---|---|
| committer | Daniel Silverstone <dsilvers@netsurf-browser.org> | 2011-03-15 15:49:08 +0000 |
| commit | 775a139103fbaebb529d9bbf104598a2c19a4879 (patch) | |
| tree | d3869df385f744d0bd1e55e82e4644d43fa57817 /utils/svn-testament.pl | |
| parent | 6d2a7a34950ed46c6a6481cf44884e4a133bbf47 (diff) | |
| download | netsurf-775a139103fbaebb529d9bbf104598a2c19a4879.tar.gz netsurf-775a139103fbaebb529d9bbf104598a2c19a4879.tar.bz2 | |
And use POSIX::uname for the hostname
svn path=/trunk/netsurf/; revision=12061
Diffstat (limited to 'utils/svn-testament.pl')
| -rwxr-xr-x | utils/svn-testament.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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`; |