diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/Sys | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Sys')
-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"; |