fix a test failing under -Dmad

p4raw-id: //depot/perl@29640

1 files changed, 3 insertions, 0 deletions

diff --git a/ext/List/Util/t/weak.t b/ext/List/Util/t/weak.t
index 58745c7500..d0c3dff187 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;