From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 15 Mar 2007 16:01:33 +0000 (+0000)
Subject: Patch by Gerard Goossen to have nomad print also
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbe583b960c195821416c9520625ddc997fe7668;p=p5sagit%2Fp5-mst-13.2.git

Patch by Gerard Goossen to have nomad print also
the [ ] { } madprops.

p4raw-id: //depot/perl@30597
---

diff --git a/mad/nomad b/mad/nomad
index dd33901..c62ae6a 100755
--- a/mad/nomad
+++ b/mad/nomad
@@ -10,7 +10,6 @@
 use strict;
 use warnings;
 use Carp;
-use lib '/home/larry/src/p55';
 
 use P5AST;
 use P5re;
@@ -19,7 +18,7 @@ my $dowarn = 0;
 my $YAML = 0;
 my $deinterpolate;
 
-while (@ARGV and $ARGV[0] =~ /^-/) {
+while (@ARGV and $ARGV[0] =~ /^-./) {
     my $switch = shift;
     if ($switch eq '-w') {
 	$dowarn = 1;
@@ -698,7 +697,7 @@ sub ast {
 	return P5AST::listop->new(Kids => [@before,@retval]);
     }
 
-    push @retval, $self->madness('o (');
+    push @retval, $self->madness('o ( [ {');
 
     my @newkids;
     for my $kid (@{$$self{Kids}}) {
@@ -715,7 +714,7 @@ sub ast {
     }
     push @retval, @newkids;
 
-    push @retval, $self->madness(')');
+    push @retval, $self->madness('} ] )');
     return $self->newtype->new(Kids => [@before,@retval,@after]);
 }