Changeset 21620 for perl5

Show
Ignore:
Timestamp:
07/30/08 00:12:18 (5 months ago)
Author:
fglock
Message:

[PCR] fixed last commit

Location:
perl5/Pugs-Compiler-Rule
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • perl5/Pugs-Compiler-Rule/Changes

    r21619 r21620  
     10.37  2008-07-28 
    120.36  2008-07-28 
    23- fixed quoting in perl 5 regex emitter 

  • perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm

    r21619 r21620  
    3333                        delete $param->{c}        ||  
    3434                        0; 
     35    my $compile_only = delete $param->{compile_only}; 
    3536    warn "Error in rule: unknown parameter '$_'"  
    3637        for keys %$param; 
    … …  
    9798    # print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})}; 
    9899 
    99     unless ( $param->{compile_only} ) { 
     100    unless ( $compile_only ) { 
    100101        local $@; 
    101102        $self->{code} = eval  

  • perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm

    r21619 r21620  
    55package Pugs::Compiler::Rule; 
    66 
    7 our $VERSION = '0.36'; 
     7our $VERSION = '0.37'; 
    88 
    99use base 'Pugs::Compiler::Regex';