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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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
 |;