Changeset 21640 for perl5

Show
Ignore:
Timestamp:
07/30/08 22:43:35 (4 months ago)
Author:
fglock
Message:

[v6.pm] operator fixes

Location:
perl5/Pugs-Compiler-Perl6/lib/Pugs
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm

    r21632 r21640  
    17931793         $n->{op2} eq ']' ) { 
    17941794 
    1795         if ( ! exists $n->{exp2} ) { 
     1795        if ( ! defined $n->{exp2} ) { 
    17961796            # $array[] 
    17971797            return '@{ ' . _emit( $n->{exp1} ) . ' }'; 

  • perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm

    r21601 r21640  
    133133                [ 
    134134                    <?ws>  
    135                     <Pugs::Grammar::Expression.parse('allow_semicolon', 1)> <?ws>?  
     135                    <Pugs::Grammar::Expression.parse('no_comma', 1)> <?ws>?  
    136136                    ')' 
    137137                    { return { 
    … …  
    664664                { return $/{'Pugs::Grammar::Quote.q'}->() } 
    665665            ^ ), 
     666        q(WHAT) => Pugs::Compiler::Token->compile( q^ 
     667                <?ws> <Pugs::Grammar::Expression.parse('no_comma',1)>  
     668                    { return { 
     669                        op1      => 'call', 
     670                        param    => $_[0]{'Pugs::Grammar::Expression.parse'}->(), 
     671                        sub      => { 
     672                                        'bareword' => 'WHAT', 
     673                                    }, 
     674                    } } 
     675            ^ ), 
    666676        q() => Pugs::Compiler::Token->compile( q^ 
    667677                ### num/int