summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Sys/Hostname.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Sys/Hostname.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Sys/Hostname.pm14
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";