From 60fe2d11bee13910922b7d723f4201e45c5b5fc6 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <h.m.brand@xs4all.nl>
Date: Fri, 12 Nov 2010 15:19:07 +0100
Subject: [PATCH] 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"
---
 t/op/write.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/op/write.t b/t/op/write.t
index 237c679..4038f43 100644
--- 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";
-- 
2.7.4