encoding.t: Skip 2 tests under debugging

1 files changed, 10 insertions, 0 deletions

diff --git a/ext/PerlIO-encoding/t/encoding.t b/ext/PerlIO-encoding/t/encoding.t
index b9193b92f8..6b4d3d068a 100644
--- a/ext/PerlIO-encoding/t/encoding.t
+++ b/ext/PerlIO-encoding/t/encoding.t
@@ -206,6 +206,14 @@ 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
+# 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};
+
 eval { eval {
     open my $fh, ">:encoding(globber)", \$buf;
     print $fh "Agathopous Goodfoot\n";
@@ -220,6 +228,8 @@ close $fh;
 is $x, "To hymn him who heard her herd herd\n",
      'no crash when assigning glob to buffer in decode';
 
+} # SKIP
+
 END {
     1 while unlink($grk, $utf, $fail1, $fail2, $russki, $threebyte);
 }