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

[v6.pm] require newer PCR

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r21617 r21621  
    14911491            } 
    14921492            my $regex = $rx->{rx}; 
    1493             $regex =~ s{\\}{\\\\}g; 
    1494             $regex =~ s{/}{\\/}g; 
    1495             # print "Regex: /$regex/\n"; 
    1496             my $code = Pugs::Compiler::RegexPerl5->compile( $regex )->{perl5}; 
     1493            my $code; 
     1494            eval { 
     1495                $code = Pugs::Compiler::RegexPerl5->compile( $regex, { compile_only => 1 } )->{perl5}; 
     1496                # print $code, "# $regex /end\n"; 
     1497            } 
     1498            or do { 
     1499                print "Error in perl 5 regex: $regex : $@\n"; 
     1500                die   "Error in perl 5 regex: $regex : $@\n"; 
     1501            }; 
    14971502            return '( $::_V6_MATCH_ = '  
    14981503                        . $code  
    14991504                        . '->( __PACKAGE__, \\('._emit($n->{exp1}).') ) ' 
    1500                 . ')'; 
     1505                 . ')'; 
    15011506        } 
    15021507        if (   exists $n->{exp2}{int} && defined $n->{exp2}{int}