Changeset 21801 for perl5

Show
Ignore:
Timestamp:
08/06/08 11:36:22 (5 months ago)
Author:
fglock
Message:

[PCR] new ENV option 'PCR_DUMP_AST'

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r18773 r21801  
    105105        $self->{ast} = $ast; 
    106106 
    107         #warn "ast: ",Dumper($ast),"\n"; 
     107        warn Dumper( $ast ) 
     108            if $ENV{PCR_DUMP_AST}; 
     109 
    108110        #die "Error in rule: '$rule_source' at: '$ast->tail'\n" if $ast->tail; 
    109111        #print 'rule ast: ', do{use Data::Dumper; Dumper($ast{capture})};