Guard write test against miniperl

Miniperl does not support scalario. The test will still fail when
miniperl is called directly "./miniperl -Ilib t/op/write.t", but
it will pass "make minitest"

diff --git a/t/op/write.t b/t/op/write.t
index 237c679..4038f43 100644 (file)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -610,7 +610,11 @@ close STDOUT_DUP;
 *CmT =  *{$::{Comment}}{FORMAT};
 ok  defined *{$::{CmT}}{FORMAT}, "glob assign";
 
-{   my $buf = "";
+if ($ENV{PERL_CORE_MINITEST}) {
+    ok 1, "Skip test for miniperl, as it does not support scalario";
+}
+else {
+    my $buf = "";
     open my $fh, ">", \$buf;
     my $old_fh = select $fh;
     local $~ = "CmT";