This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix a test failing under -Dmad
authorDave Mitchell <davem@fdisolutions.com>
Sat, 30 Dec 2006 01:18:18 +0000 (01:18 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sat, 30 Dec 2006 01:18:18 +0000 (01:18 +0000)
p4raw-id: //depot/perl@29640

ext/List/Util/t/weak.t

index 58745c7..d0c3dff 100755 (executable)
@@ -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;