[perl #68108] : also fix if/else constant folding

[p5sagit/p5-mst-13.2.git] / t / op / attrs.t

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 @_ };