Commit | Line | Data |
61f2b451 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib' if -d '../lib'; |
6 | require Config; import Config; |
7 | if ( ($Config{'extensions'} !~ /\bSocket\b/ || |
760ac839 |
8 | $Config{'extensions'} !~ /\bIO\b/ || |
9 | $^O eq 'os2') && |
61f2b451 |
10 | !(($^O eq 'VMS') && $Config{d_socket})) { |
11 | print "1..0\n"; |
12 | exit 0; |
13 | } |
14 | } |
15 | |
16 | $| = 1; |
17 | print "1..3\n"; |
18 | |
19 | use Socket; |
20 | use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY); |
21 | |
760ac839 |
22 | $udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost'); |
23 | $udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost'); |
61f2b451 |
24 | |
25 | print "ok 1\n"; |
26 | |
27 | $udpa->send("ok 2\n",0,$udpb->sockname); |
28 | $rem = $udpb->recv($buf="",5); |
29 | print $buf; |
30 | $udpb->send("ok 3\n"); |
31 | $udpa->recv($buf="",5); |
32 | print $buf; |