remove some clutter from Match.perl output

rakudo · Jun 8, 2010 · acecb97 · acecb97
1 parent 7821618
commit acecb97
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/core/Match.pm b/src/core/Match.pm
@@ -95,8 +95,7 @@ class Match is Regex::Match is Cool does Associative {
                 take " # WARNING: this is not working perl code\n";
                 take " # and for debugging purposes only\n";
             }
-            take "$sp ast  => {$.ast.perl},\n";
-            take "$sp Str  => {$.Str.perl},\n";
+            take "$sp ast  => {$.ast.perl},\n" unless $.ast === Any;
             take "$sp from => $.from,\n";
             take "$sp orig => $.orig.perl(),\n";
             take "$sp to   => $.to,\n";