From 668a86254af1576eb43991facafcf3693c919b3f Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 4 Dec 2012 07:04:48 -0800
Subject: [PATCH] encoding.t: Skip 2 tests under debugging

---
 ext/PerlIO-encoding/t/encoding.t | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/ext/PerlIO-encoding/t/encoding.t b/ext/PerlIO-encoding/t/encoding.t
index b9193b9..6b4d3d0 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);
 }
-- 
2.7.4