Skip tests that use attributes.pm under miniperl

diff --git a/t/op/attrhand.t b/t/op/attrhand.t
index 8b11ac4..8c89f7f 100644 (file)
--- a/t/op/attrhand.t
+++ b/t/op/attrhand.t
@@ -1,6 +1,10 @@
 #!/usr/bin/perl -w
 
 BEGIN {
+    if ($ENV{PERL_CORE_MINITEST}) {
+       print "1..0 # skip: miniperl can't load attributes\n";
+       exit 0;
+    }
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';

diff --git a/t/op/attrs.t b/t/op/attrs.t
index 5e75e50..92b5b9e 100644 (file)
--- a/t/op/attrs.t
+++ b/t/op/attrs.t
@@ -2,14 +2,18 @@
 
 # Regression tests for attributes.pm and the C< : attrs> syntax.
 
-use warnings;
-
 BEGIN {
+    if ($ENV{PERL_CORE_MINITEST}) {
+       print "1..0 # skip: miniperl can't load attributes\n";
+       exit 0;
+    }
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
 }
 
+use warnings;
+
 plan 84;
 
 $SIG{__WARN__} = sub { die @_ };