This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Need to skip Storable's threads test on 5.8.2 with ithreads and
[perl5.git] / ext / Storable / t / threads.t
index eddc4bb..9c55b72 100644 (file)
@@ -32,6 +32,13 @@ sub BEGIN {
         print "1..0 # Skip: no threads\n";
         exit 0;
     }
+    # - is \W, so can't use \b at start. Negative look ahead and look behind
+    # works at start/end of string, or where preceded/followed by spaces
+    if ($] == 5.008002 and $Config{'ccflags'} =~ /(?<!\S)-DDEBUGGING(?!\S)/) {
+       # Bug caused by change 21610, fixed by change 21849
+        print "1..0 # Skip: tickles bug in threads combined with -DDEBUGGING on 5.8.2\n";
+        exit 0;
+    }
 }
 
 use Test::More;