This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c8185ac
)
fix a test failing under -Dmad
author
Dave Mitchell
<davem@fdisolutions.com>
Sat, 30 Dec 2006 01:18:18 +0000
(
01:18
+0000)
committer
Dave 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
patch
|
blob
|
blame
|
history
diff --git
a/ext/List/Util/t/weak.t
b/ext/List/Util/t/weak.t
index
58745c7
..
d0c3dff
100755
(executable)
--- 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;