svleak.t: re-evals leak under mad

diff --git a/t/op/svleak.t b/t/op/svleak.t
index b3e2700..319866f 100644 (file)
--- a/t/op/svleak.t
+++ b/t/op/svleak.t
@@ -307,12 +307,13 @@ leak(2, 0, sub {
 # Run-time regexp code blocks
 {
     use re 'eval';
+    my $madness = !!$Config{mad};
     my @tests = ('[(?{})]','(?{})');
     for my $t (@tests) {
-       leak(2, 0, sub {
+       leak(2, $madness, sub {
            / $t/;
        }, "/ \$x/ where \$x is $t does not leak");
-       leak(2, 0, sub {
+       leak(2, $madness, sub {
            /(?{})$t/;
        }, "/(?{})\$x/ where \$x is $t does not leak");
     }