Changeset 21388 for perl5

Show
Ignore:
Timestamp:
07/19/08 00:34:37 (4 months ago)
Author:
fglock
Message:

[v6.pm] fixed block interpolation in string

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r16160 r21388  
    9090    <before '{' > 
    9191    [ 
    92         <Pugs::Grammar::Expression.parse> 
     92        <Pugs::Grammar::Perl6.block> 
    9393        { return { 
    9494            statement => 'do', 
    95             exp1 => $/{'Pugs::Grammar::Expression.parse'}()  
     95            exp1 => $/{'Pugs::Grammar::Perl6.block'}()  
    9696        } } 
    9797    |