Need to skip Storable's threads test on 5.8.2 with ithreads and

-DDEBUGGING, because it tickles a bug. (The same bug that got DBI)

p4raw-id: //depot/perl@22217

diff --git a/ext/Storable/t/threads.t b/ext/Storable/t/threads.t
index eddc4bb..9c55b72 100644 (file)
--- a/ext/Storable/t/threads.t
+++ b/ext/Storable/t/threads.t
@@ -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;