Changeset 22564

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

[viv] add --pos option

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/perl6/viv

    r22553 r22564  
    1212 
    1313$::ACTIONS = 'Actions'; 
     14my $OPT_pos = 0; 
    1415 
    1516sub MAIN { 
    … …  
    2627        elsif ($switch eq '--p6') { 
    2728            $output = 'p6'; 
     29        } 
     30        elsif ($switch eq '--pos') { 
     31            $OPT_pos = 1; 
    2832        } 
    2933    } 
    … …  
    8084            } 
    8185            elsif ($k eq '_arity') { 
    82                 $r{arity} = $v; 
     86                $r{ARITY} = $v; 
     87            } 
     88            elsif ($k eq '_from') { 
     89                $r{POS} = $v; 
    8390            } 
    8491            elsif ($k =~ /^[a-zA-Z]/) {