Changeset 12409

Timestamp:

08/30/10 12:27:31 (18 months ago)

Author:

szabgab

Message:

improve Perl 6 coloring

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6StdColorizerTask.pm (modified) (1 diff)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6/Perl6StdColorizerTask.pm

@@ -94 +94 @@
             my %token = %{$htoken};
             my $color = $colors{ $token{rule} };
-            if ($color) {
+            if (defined $color) {
                 my $len   = length $token{buffer};
                 my $start = $token{last_pos} - $len;