diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Sys/Hostname.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Sys/Hostname.pm | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm index 415f9517fa4..cdc1231ad54 100644 --- a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm +++ b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm @@ -5,9 +5,8 @@ use strict; use Carp; require Exporter; -require AutoLoader; -our @ISA = qw/ Exporter AutoLoader /; +our @ISA = qw/ Exporter /; our @EXPORT = qw/ hostname /; our $VERSION; @@ -15,12 +14,12 @@ our $VERSION; our $host; BEGIN { - $VERSION = '1.11'; + $VERSION = '1.16'; { local $SIG{__DIE__}; eval { require XSLoader; - XSLoader::load('Sys::Hostname', $VERSION); + XSLoader::load(); }; warn $@ if $@; } @@ -114,13 +113,6 @@ sub hostname { $host = `uname -n 2>/dev/null`; ## sysVish } - # method 6 - Apollo pre-SR10 - || eval { - local $SIG{__DIE__}; - my($a,$b,$c,$d); - ($host,$a,$b,$c,$d)=split(/[:\. ]/,`/com/host`,6); - } - # bummer || croak "Cannot get host name of local machine"; |