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