Changeset 21607 for perl5

Show
Ignore:
Timestamp:
07/29/08 14:17:25 (5 months ago)
Author:
fglock
Message:

[v6.pm] fixed operators, warnings

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

Legend:

Unmodified
Added
Removed

  • perl5/Pugs-Compiler-Perl6/ChangeLog

    r21598 r21607  
     1- more operators 
     2 
    130.029  2008-07-28 
    24- updated skipped tests 

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

    r21600 r21607  
    14401440            ' : $_V6_PAD{'.$id1.'} ) '; 
    14411441    } 
     1442    if ( $n->{op1} eq '//=' ) { 
     1443        my $id1 = $id++; 
     1444        return 
     1445            ' ( !defined ( $_V6_PAD{'.$id1.'} = ( ' . _emit( $n->{exp1} ) . ' )) ' . 
     1446            ' ? ( ' . _emit( $n->{exp1} ) . ' = ' . _emit( $n->{exp2} ) . ' ) ' . 
     1447            ' : $_V6_PAD{'.$id1.'} ) '; 
     1448    } 
    14421449    if ( $n->{op1} eq 'does' ) { 
    14431450        # XXX - fix this when Moose implements '$object does' 
    … …  
    15971604                  { 
    15981605                    fixity => 'infix', 
    1599                     op1 => { op => '+' }, 
     1606                    op1 => '+', 
    16001607                    exp1 => $n->{exp1}, 
    16011608                    exp2 => $n->{exp2}, 
    … …  
    16921699            && ( exists $n->{exp1}{array} 
    16931700                || (  exists $n->{exp1}{op1} 
     1701                   && exists $n->{exp2}{fixity} 
    16941702                   && $n->{exp1}{fixity} eq 'circumfix' 
    16951703                   && $n->{exp1}{op1} eq '(' 
    … …  
    17031711                    || exists $n->{exp2}{array} 
    17041712                    || (  exists $n->{exp2}{op1} 
     1713                       && exists $n->{exp2}{fixity} 
    17051714                       && $n->{exp2}{fixity} eq 'circumfix' 
    17061715                       && $n->{exp2}{op1} eq '('