[perl #32717] BeOS specific Updates

[p5sagit/p5-mst-13.2.git] / lib / Tie / File / t / 16_handle.t

diff --git a/lib/Tie/File/t/16_handle.t b/lib/Tie/File/t/16_handle.t
index 72ff10b..f799496 100644 (file)
--- a/lib/Tie/File/t/16_handle.t
+++ b/lib/Tie/File/t/16_handle.t
@@ -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;
    }