diff options
| author | Reini Urban <rurban@cpanel.net> | 2015-03-16 11:26:23 +0100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-03-17 09:19:10 +1100 |
| commit | beee752600dcff1ceee400c3ad9d0a5ab7ebd45b (patch) | |
| tree | 534317a1c1b7bca4fbe9e151734ef9112ea80cc5 | |
| parent | 88d9f320ca53d033aadb3c8de37636a402a5ae5d (diff) | |
| download | perl-beee752600dcff1ceee400c3ad9d0a5ab7ebd45b.tar.gz | |
fix t/op/utf8cache.t with -DDEBUG_LEAKING_SCALARS
| -rw-r--r-- | t/op/utf8cache.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/utf8cache.t b/t/op/utf8cache.t index e7484a0fc8..e89758761f 100644 --- a/t/op/utf8cache.t +++ b/t/op/utf8cache.t @@ -8,6 +8,7 @@ BEGIN { } use strict; +use Config (); plan(tests => 16); @@ -27,6 +28,8 @@ my $out = runperl(stderr => 1, } EOS +$out =~ s/^ALLOCATED at .*\n//m + if $Config::Config{ccflags} =~ /-DDEBUG_LEAKING_SCALARS/; like($out, qr/\ASV =/, "check we got dump output"); # [perl #121337] my $utf8magic = qr{ ^ \s+ MAGIC \s = .* \n |