Show
Ignore:
Timestamp:
07/04/08 13:39:38 (5 months ago)
Author:
pmurias
Message:

[pixie] arrays are marked in the dumps, stranger token names work more often

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/DumpMatch.pm

    r21101 r21213  
    5454} 
    5555sub traverse_match { 
    56     my ($r,$label,$depth,$events) = @_; 
     56    my ($r,$label,$depth,$events,$opt) = @_; 
    5757    return unless ref $r && ref $r ne 'SCALAR' && ref $r ne 'ARRAY'; 
    5858     if (defined $r->{_from}) { 
    … …  
    6868        my $v = $r->{$name}; 
    6969        if (ref $v eq 'ARRAY') { 
     70            $name = "[$name]" if $opt->{mark_arrays}; 
    7071            for my $i (0 .. scalar @{$v}) { 
    71                 traverse_match($v->[$i],$name,$depth+1,$events); 
     72                traverse_match($v->[$i],$name,$depth+1,$events,$opt); 
    7273            } 
    7374        } elsif (ref $v eq 'SCALAR') { 
    7475        } elsif (ref $v) { 
    75             traverse_match($v,$name,$depth+1,$events); 
     76            traverse_match($v,$name,$depth+1,$events,$opt); 
    7677        } else { 
    7778        } 
    … …  
    8384    my $opt = shift || {}; 
    8485    my $events = []; 
    85     traverse_match($r,$name,0,$events); 
     86    traverse_match($r,$name,0,$events,$opt); 
    8687    process_events(${$r->{_orig}},$events,$opt); 
    8788}