From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 12 Dec 2001 03:23:26 +0000 (+0000)
Subject: BeOS still has no good sockets.
X-Git-Tag: accepted/trunk/20130322.191538~28871
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4024c853fe54761ed855ab7a98d8b015be1ec94d;p=platform%2Fupstream%2Fperl.git

BeOS still has no good sockets.

p4raw-id: //depot/perl@13647
---

diff --git a/ext/IO/lib/IO/t/io_sel.t b/ext/IO/lib/IO/t/io_sel.t
index 009c251..1e72e38 100755
--- a/ext/IO/lib/IO/t/io_sel.t
+++ b/ext/IO/lib/IO/t/io_sel.t
@@ -49,7 +49,7 @@ $sel->remove([\*STDOUT, 5]);
 print "not " unless $sel->count == 0 && !defined($sel->bits);
 print "ok 9\n";
 
-if ( grep $^O eq $_, qw(MSWin32 NetWare dos VMS riscos) ) {
+if ( grep $^O eq $_, qw(MSWin32 NetWare dos VMS riscos beos) ) {
     for (10 .. 15) { 
         print "ok $_ # skip: 4-arg select is only valid on sockets\n"
     }