Cross Reference: Hostname.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
Sys
/
Hostname
/
t
/
Hostname.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
Hostname.t revision 1
1
N/A
#!./perl
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
require
Config
;
import
Config
;
1
N/A
if
(
$Config
{
'extensions'
} !~ /\
bSys
\/
Hostname
\b/)
{
1
N/A
print
"1..0 # Skip: Sys::Hostname was not built\n"
;
1
N/A
exit
0
;
1
N/A
}
1
N/A
}
1
N/A
1
N/A
use
Sys
::
Hostname
;
1
N/A
1
N/A
eval
{
1
N/A
$host
=
hostname
;
1
N/A
}
;
1
N/A
1
N/A
if
($@)
{
1
N/A
print
"1..0\n"
if
$@ =~ /
Cannot
get
host
name
/;
1
N/A
}
else
{
1
N/A
print
"1..1\n"
;
1
N/A
print
"# \$host =
`
$host
'\n";
1
N/A
print "ok 1\n";
1
N/A
}