# 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";
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);
}