Re: [Patch] Fix some of the tests of Storable on Perl 5.004

[p5sagit/p5-mst-13.2.git] / ext / Storable / t / threads.t

diff --git a/ext/Storable/t/threads.t b/ext/Storable/t/threads.t
index 9c55b72..664566e 100644 (file)
--- a/ext/Storable/t/threads.t
+++ b/ext/Storable/t/threads.t
@@ -34,7 +34,7 @@ sub BEGIN {
     }
     # - 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)/) {
+    if ($] == 5.008002 and eval q{ $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;