PerlIO-encoding/t/encoding.t: improve test skip
authorDavid Mitchell <davem@iabyn.com>
Thu, 11 Jul 2019 14:40:03 +0000 (15:40 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 11 Jul 2019 14:40:03 +0000 (15:40 +0100)
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.

ext/PerlIO-encoding/t/encoding.t

index 41cefcb..367b0cf 100644 (file)
@@ -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;