Change 29640 by [EMAIL PROTECTED] on 2006/12/30 01:18:18
fix a test failing under -Dmad
Affected files ...
... //depot/perl/ext/List/Util/t/weak.t#6 edit
Differences ...
==== //depot/perl/ext/List/Util/t/weak.t#6 (xtext) ====
Index: perl/ext/List/Util/t/weak.t
--- perl/ext/List/Util/t/weak.t#5~24465~ 2005-05-13 13:42:53.000000000
-0700
+++ perl/ext/List/Util/t/weak.t 2006-12-29 17:18:18.000000000 -0800
@@ -183,6 +183,9 @@
# 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;
End of Patch.
