diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-06-27 15:22:20 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-06-27 15:22:20 -0400 |
commit | c85e7c0cfd974b88312d972c3417b7ce4c8a4dde (patch) | |
tree | 95eba99a03c3912cefbf310f724bffdb105ffa83 /lib | |
parent | 10068971da7d5dc19623334a1f342b2940501485 (diff) | |
download | reply-c85e7c0cfd974b88312d972c3417b7ce4c8a4dde.tar.gz reply-c85e7c0cfd974b88312d972c3417b7ce4c8a4dde.zip |
allow trailing single colons too
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Reply/Plugin/Autocomplete/Packages.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/Autocomplete/Packages.pm b/lib/Reply/Plugin/Autocomplete/Packages.pm index 4f7f2a4..bfdd143 100644 --- a/lib/Reply/Plugin/Autocomplete/Packages.pm +++ b/lib/Reply/Plugin/Autocomplete/Packages.pm @@ -25,7 +25,7 @@ sub tab_handler { my ($line) = @_; # $module_name_rx does not permit trailing :: - my ($package_fragment) = $line =~ /($module_name_rx(?:::)?)$/; + my ($package_fragment) = $line =~ /(${module_name_rx}:?:?)$/; return unless $package_fragment; my $file_fragment = $package_fragment; |