Changeset 10966

Timestamp:

03/01/10 19:18:30 (2 years ago)

Author:

adamk

Message:

Adding promised PPI lexer configurable max-length limit for azawawi

Location:

trunk/Padre

Files:

• lib/Padre/Config.pm (modified) (1 diff)
• lib/Padre/Document/Perl.pm (modified) (1 diff)
• t/04-config.t (modified) (1 diff)

trunk/Padre/lib/Padre/Config.pm

@@ -825 +825 @@
     default => 3,
 );
+setting(
+    name    => 'perl_ppi_lexer_limit',
+    type    => Padre::Constant::POSINT,
+    store   => Padre::Constant::HUMAN,
+    default => 4000,
+);
 
 # Behaviour Tuning

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

@@ -120 +120 @@
     my $limit;
     if ( $module eq 'Padre::Document::Perl::PPILexer' ) {
-        $limit = 4000;
+        $limit = $self->current->config->perl_ppi_lexer_limit;
     } elsif ( $module eq 'Padre::Document::Perl::Lexer' ) {
         $limit = 4000;

trunk/Padre/t/04-config.t

@@ -3 +3 @@
 use strict;
 use warnings;
-use constant CONFIG_OPTIONS => 112;
+use constant CONFIG_OPTIONS => 113;
 
 # Move of Debug to Run Menu