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.
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
# [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');
+}
+