diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-06-05 18:28:50 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-06-05 18:28:50 +0000 |
| commit | e29a9a2ca4af65316e439cbe9ac6317dab951527 (patch) | |
| tree | ef4c1037000542ecb7b3f896296cf61a753a3e13 | |
| parent | d24bc3646c6bc60910039e6f636c53e2dbb539a8 (diff) | |
| download | perl-e29a9a2ca4af65316e439cbe9ac6317dab951527.tar.gz | |
$^O is 'beos' on BeOS
p4raw-id: //depot/perl@17016
| -rw-r--r-- | lib/Tie/File/t/16_handle.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/File/t/16_handle.t b/lib/Tie/File/t/16_handle.t index 72ff10b7be..f799496be1 100644 --- 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; } |