Re: [PATCH] Cleanup of the regexp API

[p5sagit/p5-mst-13.2.git] / ext / B / t / pragma.t

diff --git a/ext/B/t/pragma.t b/ext/B/t/pragma.t
index 009161a..af86b05 100644 (file)
--- a/ext/B/t/pragma.t
+++ b/ext/B/t/pragma.t
@@ -13,6 +13,10 @@ BEGIN {    ## no critic strict
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
+    if ( $] < 5.009 ) {
+        print "1..0 # Skip -- No user pragmata in 5.8.x\n";
+        exit 0;
+    }
 }
 
 use strict;