diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-06-27 17:21:25 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-06-27 17:21:25 -0400 |
| commit | fc6ae897dfa5861b9b2eaf069ab38389630adf90 (patch) | |
| tree | b35cfbba80c21b2a1d9416b88cd72e99f72b54fb | |
| parent | c9f72cf51b809fe907db1faa4071f0baafeab20c (diff) | |
| download | reply-fc6ae897dfa5861b9b2eaf069ab38389630adf90.tar.gz reply-fc6ae897dfa5861b9b2eaf069ab38389630adf90.zip | |
no idea what's going on here
| -rw-r--r-- | lib/Reply/Plugin/Autocomplete/Lexicals.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/Autocomplete/Lexicals.pm b/lib/Reply/Plugin/Autocomplete/Lexicals.pm index e7c0c71..ee981f7 100644 --- a/lib/Reply/Plugin/Autocomplete/Lexicals.pm +++ b/lib/Reply/Plugin/Autocomplete/Lexicals.pm @@ -57,8 +57,9 @@ sub tab_handler { next unless index($env_name, $name_prefix) == 0; + # this is weird, not sure why % gets stripped but not $ or @ if ($sigil eq $env_sigil) { - push @results, $env_name; + push @results, $sigil eq '%' ? $env_var : $env_name; } elsif ($env_sigil eq '@' && $sigil eq '$') { push @results, "$env_name\["; |