In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/e3d2bd96751612e204e517c970eb34267b8ececa?hp=59c73bd3d62c5096a6f9b2e3cbe05e1ab4c158cf>
- Log ----------------------------------------------------------------- commit e3d2bd96751612e204e517c970eb34267b8ececa Author: David Mitchell <[email protected]> Date: Thu Jul 11 15:40:03 2019 +0100 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. ----------------------------------------------------------------------- Summary of changes: ext/PerlIO-encoding/t/encoding.t | 7 ++----- 1 file 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; -- Perl5 Master Repository
