diff options
author | David Mitchell <davem@iabyn.com> | 2019-07-11 15:40:03 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2019-07-11 15:40:03 +0100 |
commit | e3d2bd96751612e204e517c970eb34267b8ececa (patch) | |
tree | 4f5f94bd2525363c7dfcf413c35a56264c1297a8 /ext/PerlIO-encoding | |
parent | 59c73bd3d62c5096a6f9b2e3cbe05e1ab4c158cf (diff) | |
download | perl-e3d2bd96751612e204e517c970eb34267b8ececa.tar.gz |
PerlIO-encoding/t/encoding.t: improve test skip
One test is skipped if $PERL_DESTRUCT_LEVEL is set and its a DEBUGGING
build, as it produces a spurious "Unbalanced string table" warning.
However, this warning is emitted on non-DEBUGGING builds too: It's just
that until a couple of weeks ago, $PERL_DESTRUCT_LEVEL wasn't honoured
on non-DEBUGGING builds, so this was never spotted.
Diffstat (limited to 'ext/PerlIO-encoding')
-rw-r--r-- | ext/PerlIO-encoding/t/encoding.t | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/ext/PerlIO-encoding/t/encoding.t b/ext/PerlIO-encoding/t/encoding.t index 41cefcb137..367b0cf4f2 100644 --- a/ext/PerlIO-encoding/t/encoding.t +++ b/ext/PerlIO-encoding/t/encoding.t @@ -207,13 +207,10 @@ package Globber { # important. # We need a double eval, as scope unwinding will close the handle, # which croaks. -# Under debugging builds with PERL_DESTRUCT_LEVEL set, we have to skip this +# With PERL_DESTRUCT_LEVEL set, we have to skip this # test, as it triggers bug #115692, resulting in string table warnings. -require Config; SKIP: { -skip "produces string table warnings", 2 - if "@{[Config::non_bincompat_options()]}" =~ /\bDEBUGGING\b/ - && $ENV{PERL_DESTRUCT_LEVEL}; +skip "produces string table warnings", 2 if $ENV{PERL_DESTRUCT_LEVEL}; eval { eval { open my $fh, ">:encoding(globber)", \$buf; |