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