diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-06-27 19:12:03 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-06-27 19:12:03 -0400 |
| commit | 822aa7f7cabe020e178fa782f52dd05cc4bf0a1f (patch) | |
| tree | a6629b4dd2cdead5db30403b124c6cdc5ec87fd8 | |
| parent | ad37e32edcf96cbcd5949c242d6981f5cd7d072a (diff) | |
| download | reply-822aa7f7cabe020e178fa782f52dd05cc4bf0a1f.tar.gz reply-822aa7f7cabe020e178fa782f52dd05cc4bf0a1f.zip | |
better regex
| -rw-r--r-- | lib/Reply/Plugin/Autocomplete/Lexicals.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |