From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 25 Jan 2004 22:17:47 +0000 (+0000)
Subject: Need to skip Storable's threads test on 5.8.2 with ithreads and
X-Git-Tag: v5.10.0~8398
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/f9fa8de07d79b18d9dfe53441f5cb446332fdc12?hp=ec64fef1196a1e300ecd2679312685caf45d2608

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
--- 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;