This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
$^O is 'beos' on BeOS
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 5 Jun 2002 18:28:50 +0000 (18:28 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 5 Jun 2002 18:28:50 +0000 (18:28 +0000)
p4raw-id: //depot/perl@17016

lib/Tie/File/t/16_handle.t

index 72ff10b..f799496 100644 (file)
@@ -79,7 +79,7 @@ undef $o;
 untie @a;
 
 # (39) Does it correctly detect a non-seekable handle?
-{  if ($^O =~ /^(MSWin32|dos|BeOS)$/) {
+{  if ($^O =~ /^(MSWin32|dos|beos)$/) {
      print "ok $N # skipped ($^O has broken pipe semantics)\n";
      last;
    }