Changeset 21620 for perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm

Timestamp:

07/30/08 00:12:18 (5 months ago)

Author:

fglock

Message:

[PCR] fixed last commit

Files:

• perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm (modified) (2 diffs)

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

@@ -33 +33 @@
                         delete $param->{c}        || 
                         0;
+    my $compile_only = delete $param->{compile_only};
     warn "Error in rule: unknown parameter '$_'" 
         for keys %$param;
@@ -97 +98 @@
     # print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
 
-    unless ( $param->{compile_only} ) {
+    unless ( $compile_only ) {
         local $@;
         $self->{code} = eval