From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 30 Dec 2006 01:18:18 +0000 (+0000)
Subject: fix a test failing under -Dmad
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8babb2524be4b18ced06634d930c03291c1f313;p=p5sagit%2Fp5-mst-13.2.git

fix a test failing under -Dmad

p4raw-id: //depot/perl@29640
---

diff --git a/ext/List/Util/t/weak.t b/ext/List/Util/t/weak.t
index 58745c7..d0c3dff 100755
--- a/ext/List/Util/t/weak.t
+++ b/ext/List/Util/t/weak.t
@@ -183,6 +183,9 @@ SKIP: {
     # Doesn't work for older perls, see bug [perl #24506]
     skip("Test does not work with perl < 5.8.3", 5) if $] < 5.008003;
 
+    # in a MAD build, constants have refcnt 2, not 1
+    skip("Test does not work with MAD", 5) if exists $Config{mad};
+
     $a = eval '\"hello"';
     ok(ref($a)) or print "# didn't get a ref from eval\n";
     $b = $a;