X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mad%2FNomad.pm;h=eaac474b783f37f8b39f7dadc1a09ac3cb0fd701;hb=35fe4187b13e55333f87abc0091ce2732e9382fb;hp=5ccda4ff90092358a677e224400d3d15dc44ea0a;hpb=b3f5cf18528ca19187726d11aa6582cb64debc65;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mad/Nomad.pm b/mad/Nomad.pm
old mode 100755
new mode 100644
index 5ccda4f..eaac474
--- a/mad/Nomad.pm
+++ b/mad/Nomad.pm
@@ -674,7 +674,7 @@ sub ast {
 	return P5AST::listop->new(Kids => [@before,@retval]);
     }
 
-    push @retval, $self->madness('o ( [ {');
+    push @retval, $self->madness('o d ( [ {');
 
     my @newkids;
     for my $kid (@{$$self{Kids}}) {
@@ -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;