From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 26 Aug 2009 13:44:44 +0000 (+0200)
Subject: Cargo-cult addition of op_say to the MAD code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=793019c7a82cb5cc23f2539a00b7092ee19100a5;p=p5sagit%2Fp5-mst-13.2.git

Cargo-cult addition of op_say to the MAD code

(and make some more TODO tests pass)
---

diff --git a/mad/Nomad.pm b/mad/Nomad.pm
index 79da555..eaac474 100644
--- a/mad/Nomad.pm
+++ b/mad/Nomad.pm
@@ -2838,6 +2838,7 @@ package PLXML::op_enterwrite;
 package PLXML::op_leavewrite;
 package PLXML::op_prtf;
 package PLXML::op_print;
+package PLXML::op_say;
 package PLXML::op_sysopen;
 package PLXML::op_sysseek;
 package PLXML::op_sysread;
diff --git a/mad/P5AST.pm b/mad/P5AST.pm
index eaf3bd3..13a35e1 100644
--- a/mad/P5AST.pm
+++ b/mad/P5AST.pm
@@ -370,6 +370,7 @@ package P5AST::op_enterwrite; 	@ISA = 'P5AST::baseop_unop';
 package P5AST::op_leavewrite; 	@ISA = 'P5AST::unop';
 package P5AST::op_prtf; 	@ISA = 'P5AST::listop';
 package P5AST::op_print; 	@ISA = 'P5AST::listop';
+package P5AST::op_say;		@ISA = 'P5AST::listop';
 package P5AST::op_sysopen; 	@ISA = 'P5AST::listop';
 package P5AST::op_sysseek; 	@ISA = 'P5AST::listop';
 package P5AST::op_sysread; 	@ISA = 'P5AST::listop';
diff --git a/mad/PLXML.pm b/mad/PLXML.pm
index feaf58f..7f2dac6 100644
--- a/mad/PLXML.pm
+++ b/mad/PLXML.pm
@@ -2513,6 +2513,16 @@ sub flags { 'ims@' }
 sub args { 'F? L' }
 
 
+package PLXML::op_say;
+
+our @ISA = ('PLXML::listop');
+
+sub key { 'say' }
+sub desc { 'say' }
+sub check { 'ck_listiob' }
+sub flags { 'ims@' }
+sub args { 'F? L' }
+
 
 package PLXML::op_sysopen;
 
diff --git a/mad/t/p55.t b/mad/t/p55.t
index ab586b8..fbfa451 100644
--- a/mad/t/p55.t
+++ b/mad/t/p55.t
@@ -71,10 +71,8 @@ our %failing = map { $_, 1 } qw|
 ../t/op/symbolcache.t
 
 ../t/op/exec.t
-../t/io/say.t
 
 ../t/op/state.t
-../t/op/tiehandle.t
 ../t/op/each_array.t
 ../t/lib/cygwin.t
 |;