diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Sys/Hostname.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Sys/Hostname.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Sys/Hostname.pm b/Master/tlpkg/tlperl/lib/Sys/Hostname.pm index 4893f6a9660..1d2e47210a7 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.17'; + $VERSION = '1.18'; { local $SIG{__DIE__}; eval { @@ -92,7 +92,7 @@ sub hostname { || eval { local $SIG{__DIE__}; local $SIG{CHLD}; - $host = `(hostname) 2>/dev/null`; # bsdish + $host = `(hostname) 2>/dev/null`; # BSDish } # method 4 - use POSIX::uname(), which strictly can't be expected to be |