|
Lines 98-103
Link Here
|
| 98 |
local $SIG{__DIE__}; |
98 |
local $SIG{__DIE__}; |
| 99 |
$host = `(hostname) 2>/dev/null`; # bsdish |
99 |
$host = `(hostname) 2>/dev/null`; # bsdish |
| 100 |
$ENV{'PATH'} = $pathstack; |
100 |
$ENV{'PATH'} = $pathstack; |
|
|
101 |
$host; |
| 101 |
} |
102 |
} |
| 102 |
|
103 |
|
| 103 |
# method 4 - sysV uname command (may truncate) |
104 |
# method 4 - sysV uname command (may truncate) |
|
Lines 107-112
Link Here
|
| 107 |
local $SIG{__DIE__}; |
108 |
local $SIG{__DIE__}; |
| 108 |
$host = `uname -n 2>/dev/null`; ## sysVish |
109 |
$host = `uname -n 2>/dev/null`; ## sysVish |
| 109 |
$ENV{'PATH'} = $pathstack; |
110 |
$ENV{'PATH'} = $pathstack; |
|
|
111 |
$host; |
| 110 |
} |
112 |
} |
| 111 |
|
113 |
|
| 112 |
# method 5 - Apollo pre-SR10 |
114 |
# method 5 - Apollo pre-SR10 |