diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-08-26 15:44:44 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-08-26 15:49:27 +0200 |
| commit | 793019c7a82cb5cc23f2539a00b7092ee19100a5 (patch) | |
| tree | 8868e5107e3dd9f7b4fca62f8441d6b870458535 /mad | |
| parent | 98ad9e94a6b0cfff3572396100d1e2d19b05b044 (diff) | |
| download | perl-793019c7a82cb5cc23f2539a00b7092ee19100a5.tar.gz | |
Cargo-cult addition of op_say to the MAD code
(and make some more TODO tests pass)
Diffstat (limited to 'mad')
| -rw-r--r-- | mad/Nomad.pm | 1 | ||||
| -rw-r--r-- | mad/P5AST.pm | 1 | ||||
| -rw-r--r-- | mad/PLXML.pm | 10 | ||||
| -rw-r--r-- | mad/t/p55.t | 2 |
4 files changed, 12 insertions, 2 deletions
diff --git a/mad/Nomad.pm b/mad/Nomad.pm index 79da555a4c..eaac474b78 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 eaf3bd3e20..13a35e18d0 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 feaf58ff77..7f2dac68e7 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 ab586b8557..fbfa451220 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 |; |