Stray CRs noticed by Jan Dubois.

[perl5.git] / lib / filetest.t

diff --git a/lib/filetest.t b/lib/filetest.t
index 02879c3..32f286a 100644 (file)
--- a/lib/filetest.t
+++ b/lib/filetest.t
@@ -5,7 +5,7 @@ BEGIN {
        @INC = '../lib';
 }
 
-use Test::More tests => 13;
+use Test::More tests => 15;
 
 # these two should be kept in sync with the pragma itself
 # if hint bits are changed there, other things *will* break
@@ -57,7 +57,10 @@ SKIP: {
     my $tstfile = "filetest.tst";
     skip("No $chflags available", 4) if !-x $chflags;
 
- SKIP: {
+    skip("Test does not work on OpenBSD and BSD/OS", 4)
+       if $^O =~ /^(?:openbsd|bsdos)$/;
+
+  SKIP: {
        eval {
            if (!-e $tstfile) {
                open(T, ">$tstfile") or die "Can't create $tstfile: $!";