Also fix wince for caretx after e2051532106.

[perl5.git] / mad / P5AST.pm

diff --git a/mad/P5AST.pm b/mad/P5AST.pm
index d253c86..13a35e1 100644 (file)
--- a/mad/P5AST.pm
+++ b/mad/P5AST.pm
@@ -75,6 +75,9 @@ sub p5text {
            }
            $text .= $newtext;
        }
+        elsif ($type eq "chomp") {
+            $text =~ s/\n$//g;
+        }
        elsif ($type) {
            $text .= $kid->p5text(@_);
        }
@@ -367,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';