diff options
| author | Jesse Vincent <jesse@bestpractical.com> | 2011-01-04 00:41:22 +0800 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2011-01-04 00:58:16 +0800 |
| commit | 2c17609f30aa451f45b0a17ed14e5c53245180a3 (patch) | |
| tree | c3e3417c78b8e0b41fba5a67b1e722fb5c962081 /ext/Sys-Hostname | |
| parent | 3818330277fb845056adb9589e26a1aefc39f01c (diff) | |
| download | perl-2c17609f30aa451f45b0a17ed14e5c53245180a3.tar.gz | |
Actuall excise 'Apollo DomainOS' support. We officially killed it in 5.11.0. It
hadn't worked for years before that.
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"; |