From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 25 May 2009 10:15:09 +0000 (+0200)
Subject: Skip under miniperl (cannot load Fcntl)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3484683b77726e6b8128b8dc67fb04d71a017464;p=p5sagit%2Fp5-mst-13.2.git

Skip under miniperl (cannot load Fcntl)
---

diff --git a/t/io/perlio_open.t b/t/io/perlio_open.t
index 7d870b9..e8e10fb 100644
--- a/t/io/perlio_open.t
+++ b/t/io/perlio_open.t
@@ -1,11 +1,12 @@
 #!./perl
 
-use strict;
-use warnings;
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    if ($ENV{PERL_CORE_MINITEST}) {
+	print "1..0 # Skip: no Fcntl under miniperl\n";
+	exit 0;
+    }
     unless (find PerlIO::Layer 'perlio') {
 	print "1..0 # Skip: not perlio\n";
 	exit 0;
@@ -17,6 +18,9 @@ BEGIN {
     }
 }
 
+use strict;
+use warnings;
+
 use Test::More tests => 6;
 
 use Fcntl qw(:seek);