From 822aa7f7cabe020e178fa782f52dd05cc4bf0a1f Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 27 Jun 2013 19:12:03 -0400 Subject: better regex --- lib/Reply/Plugin/Autocomplete/Lexicals.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Reply/Plugin/Autocomplete/Lexicals.pm b/lib/Reply/Plugin/Autocomplete/Lexicals.pm index ebefce6..08d4c02 100644 --- a/lib/Reply/Plugin/Autocomplete/Lexicals.pm +++ b/lib/Reply/Plugin/Autocomplete/Lexicals.pm @@ -19,7 +19,7 @@ Perl code. =cut # XXX unicode? -my $var_name_rx = qr/[\$\@\%]([A-Z_a-z][0-9A-Z_a-z]*)?/; +my $var_name_rx = qr/[\$\@\%]\s*(?:[A-Z_a-z][0-9A-Z_a-z]*)?/; sub new { my $class = shift; -- cgit v1.2.3-54-g00ecf