Changeset 22565 for src/perl6

Show
Ignore:
Timestamp:
10/10/08 18:31:01 (6 weeks ago)
Author:
lwall
Message:

[viv] add whitespace-before info under --pos

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/viv

    r22564 r22565  
    8787            } 
    8888            elsif ($k eq '_from') { 
    89                 $r{POS} = $v; 
     89                $r{POS} = $v if $OPT_pos; 
     90                if (exists $node->{'_'}[$v]{'ws'}) { 
     91                    my $wsstart = $node->{'_'}[$v]{'ws'}; 
     92                    $r{WS} = $v - $wsstart if defined $wsstart and $wsstart < $v 
     93                } 
    9094            } 
    9195            elsif ($k =~ /^[a-zA-Z]/) {