Changeset 10966

Show
Ignore:
Timestamp:
03/01/10 19:18:30 (6 months ago)
Author:
adamk
Message:

Adding promised PPI lexer configurable max-length limit for azawawi

Location:
trunk/Padre
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • trunk/Padre/lib/Padre/Config.pm

    r10898 r10966  
    825825        default => 3, 
    826826); 
     827setting( 
     828        name    => 'perl_ppi_lexer_limit', 
     829        type    => Padre::Constant::POSINT, 
     830        store   => Padre::Constant::HUMAN, 
     831        default => 4000, 
     832); 
    827833 
    828834# Behaviour Tuning 

  • trunk/Padre/lib/Padre/Document/Perl.pm

    r10826 r10966  
    120120        my $limit; 
    121121        if ( $module eq 'Padre::Document::Perl::PPILexer' ) { 
    122                 $limit = 4000; 
     122                $limit = $self->current->config->perl_ppi_lexer_limit; 
    123123        } elsif ( $module eq 'Padre::Document::Perl::Lexer' ) { 
    124124                $limit = 4000; 

  • trunk/Padre/t/04-config.t

    r10898 r10966  
    33use strict; 
    44use warnings; 
    5 use constant CONFIG_OPTIONS => 112; 
     5use constant CONFIG_OPTIONS => 113; 
    66 
    77# Move of Debug to Run Menu