diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-23 19:52:19 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-23 19:52:19 +0000 |
| commit | 5d604bee230faa93dca054659df6c20150cd55c3 (patch) | |
| tree | c65d845df3fd7564e39814e8c122d810dddd67d8 | |
| parent | 85e0a142d02334b9703df242ba0bb3d8d109cdd0 (diff) | |
| download | perl-5d604bee230faa93dca054659df6c20150cd55c3.tar.gz | |
Except Win32 from echo tests. (Alarm does not break into connect)
p4raw-id: //depot/perlio@14393
| -rwxr-xr-x | ext/Socket/Socket.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Socket/Socket.t b/ext/Socket/Socket.t index ed87e67184..4dbc480ef1 100755 --- a/ext/Socket/Socket.t +++ b/ext/Socket/Socket.t @@ -16,6 +16,7 @@ use Socket; print "1..16\n"; +$has_echo = $^O ne 'MSWin32'; $alarmed = 0; sub arm { $alarmed = 0; alarm(shift) if $has_alarm } sub alarmed { $alarmed = 1 } @@ -25,7 +26,7 @@ if (socket(T,PF_INET,SOCK_STREAM,6)) { print "ok 1\n"; arm(5); - if (connect(T,pack_sockaddr_in(7,inet_aton("localhost")))){ + if ($has_echo && connect(T,pack_sockaddr_in(7,inet_aton("localhost")))){ arm(0); print "ok 2\n"; @@ -67,7 +68,7 @@ if( socket(S,PF_INET,SOCK_STREAM,6) ){ print "ok 4\n"; arm(5); - if (connect(S,pack_sockaddr_in(7,INADDR_LOOPBACK))){ + if ($has_echo && connect(S,pack_sockaddr_in(7,INADDR_LOOPBACK))){ arm(0); print "ok 5\n"; |