Perlito5 - AST dumper tweak

fglock · May 1, 2014 · 971dcd9 · 971dcd9
1 parent 4242a67
commit 971dcd9
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/html/perlito5.js b/html/perlito5.js
@@ -11670,7 +11670,7 @@ return (p5pkg["Perlito5::Match"].flat([p5pkg["Perlito5::Grammar::Number"]["v__"]
 			var v_seen;
 			v_seen = ((new p5HashRef({})));
 			var v_level;
-			v_level = ('    ');
+			v_level = ('');
 			var v_pos;
 			v_pos = ('[TODO - recursive structure in AST is not supported]');
 			return (p5pkg["Perlito5::Dumper"]._dumper(p5list_to_a(List__.p5aget(0), v_level, v_seen, v_pos), p5want));

diff --git a/perlito5.pl b/perlito5.pl
@@ -8088,7 +8088,7 @@ sub Perlito5::Dumper::Dumper {
 }
 sub Perlito5::Dumper::ast_dumper {
     my $seen = {};
-    my $level = '    ';
+    my $level = '';
     my $pos = '[TODO - recursive structure in AST is not supported]';
     return(_dumper($_[0], $level, $seen, $pos))
 }

diff --git a/src5/lib/Perlito5/Dumper.pm b/src5/lib/Perlito5/Dumper.pm
@@ -21,7 +21,7 @@ sub Dumper {
 
 sub ast_dumper {
     my $seen  = {};
-    my $level = '    ';
+    my $level = '';
     my $pos   = '[TODO - recursive structure in AST is not supported]';
     return _dumper($_[0], $level, $seen, $pos);
 }