Cross Reference: netent.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Net
/
netent.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
netent.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
}
1
N/A
1
N/A
BEGIN
{
1
N/A
our
$hasne
;
1
N/A
eval
{
my
@n =
getnetbyname
"loopback"
};
1
N/A
$hasne
=
1
unless
$@ && $@ =~ /
unimplemented
|
unsupported
/i;
1
N/A
unless
(
$hasne
)
{
print
"1..0 # Skip: no getnetbyname\n"
;
exit
0
}
1
N/A
use
Config
;
1
N/A
$hasne
=
0
unless
$Config
{
'i_netdb'
}
eq
'define'
;
1
N/A
unless
(
$hasne
)
{
print
"1..0 # Skip: no
netdb.h
\n"
;
exit
0
}
1
N/A
}
1
N/A
1
N/A
BEGIN
{
1
N/A
our
@
netent
=
getnetbyname
"loopback"
;
# This is the function getnetbyname.
1
N/A
unless
(@
netent
)
{
print
"1..0 # Skip: no loopback net\n"
;
exit
0
}
1
N/A
}
1
N/A
1
N/A
print
"1..2\n"
;
1
N/A
1
N/A
use
Net
::
netent
;
1
N/A
1
N/A
print
"ok 1\n"
;
1
N/A
1
N/A
my
$netent
=
getnetbyname
"loopback"
;
# This is the OO getnetbyname.
1
N/A
1
N/A
print
"not "
unless
$netent
->
name
eq
$netent
[
0
];
1
N/A
print
"ok 2\n"
;
1
N/A
1
N/A
# Testing pretty much anything else is unportable;
1
N/A
#
e.g
. the canonical name of the "loopback" net may be "loop".
1
N/A