In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ef09a50008656f773e44f23fd3097a173a518e2f?hp=5eae6e9157586e142a775af27f8babee1775b387>
- Log ----------------------------------------------------------------- commit ef09a50008656f773e44f23fd3097a173a518e2f Author: David Mitchell <[email protected]> Date: Sun Aug 12 18:27:31 2012 +0100 skip failing leak test under -Dmad a test for a leaky regex introduced by d97935e0 leaks under MAD: because it uses eval, and eval leaks under MAD. So skip it in this case. ----------------------------------------------------------------------- Summary of changes: t/op/svleak.t | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) diff --git a/t/op/svleak.t b/t/op/svleak.t index 4a92bc7..b0e72f4 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -13,6 +13,8 @@ BEGIN { or skip_all("XS::APItest not available"); } +use Config; + plan tests => 22; # run some code N times. If the number of SVs at the end of loop N is @@ -165,4 +167,8 @@ leak(2,0,sub { !$^V }, '[perl #109762] version object in boolean context'); # [perl #114356] run-time rexexp with unchanging pattern got # inflated refcounts -leak(2, 0, sub { eval q{ my $x = "x"; "abc" =~ /$x/ for 1..5 } }, '#114356'); +SKIP: { + skip "disabled under -Dmad (eval leaks)" if $Config{mad}; + leak(2, 0, sub { eval q{ my $x = "x"; "abc" =~ /$x/ for 1..5 } }, '#114356'); +} + -- Perl5 Master Repository
