diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Sys/Hostname.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Sys/Hostname.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm index cdc1231ad54..4893f6a9660 100644 --- a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm +++ b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm @@ -14,7 +14,7 @@ our $VERSION; our $host; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; { local $SIG{__DIE__}; eval { @@ -64,10 +64,6 @@ sub hostname { chomp($host = `hostname 2> NUL`) unless defined $host; return $host; } - elsif ($^O eq 'epoc') { - $host = 'localhost'; - return $host; - } else { # Unix # is anyone going to make it here? |