Show
Ignore:
Timestamp:
07/31/08 16:58:59 (5 months ago)
Author:
fglock
Message:

[v6.pm] IO fixes

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r21650 r21654  
    16431643                } ); 
    16441644        } 
     1645        if (   exists $n->{exp2}{pair}  
     1646            && $n->{exp2}{pair}{key}{single_quoted} eq 'e' 
     1647            && $n->{exp2}{pair}{value}{num} eq 1 
     1648            )  
     1649        { 
     1650            #  $filename ~~ :e 
     1651            return "( -e " . _emit( $n->{exp1} ) . ")"; 
     1652        } 
    16451653        return _emit( $n->{exp1} ) . ' =~ (ref' . emit_parenthesis( $n->{exp2} ).' eq "Regexp" '. 
    16461654            ' ? '._emit($n->{exp2}).