From f9fa8de07d79b18d9dfe53441f5cb446332fdc12 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 25 Jan 2004 22:17:47 +0000
Subject: [PATCH] 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
---
 ext/Storable/t/threads.t | 7 +++++++
 1 file changed, 7 insertions(+)

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