diff options
Diffstat (limited to 'ext/Sys-Hostname')
| -rw-r--r-- | ext/Sys-Hostname/Hostname.pm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/ext/Sys-Hostname/Hostname.pm b/ext/Sys-Hostname/Hostname.pm index 5bed5ec609..0b7948c791 100644 --- a/ext/Sys-Hostname/Hostname.pm +++ b/ext/Sys-Hostname/Hostname.pm @@ -113,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"; |