diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-04 14:21:11 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-04 14:21:11 -0400 |
| commit | 48656ef560302c9e9864b84b2f95f266799d88e3 (patch) | |
| tree | 0a440ed17b463af617af486e5c06a5ea3bc84818 /lib/Reply/Plugin/Autocomplete/Lexicals.pm | |
| parent | da780b4a0c9459fb887bd32159c004312d9f3934 (diff) | |
| download | reply-48656ef560302c9e9864b84b2f95f266799d88e3.tar.gz reply-48656ef560302c9e9864b84b2f95f266799d88e3.zip | |
just give up on the whole 'name' thing here
Diffstat (limited to 'lib/Reply/Plugin/Autocomplete/Lexicals.pm')
| -rw-r--r-- | lib/Reply/Plugin/Autocomplete/Lexicals.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Reply/Plugin/Autocomplete/Lexicals.pm b/lib/Reply/Plugin/Autocomplete/Lexicals.pm index dd953bf..204778a 100644 --- a/lib/Reply/Plugin/Autocomplete/Lexicals.pm +++ b/lib/Reply/Plugin/Autocomplete/Lexicals.pm @@ -24,16 +24,16 @@ sub new { my $class = shift; my $self = $class->SUPER::new(@_); - $self->{env} = {}; + $self->{env} = []; return $self; } sub lexical_environment { my $self = shift; - my ($name, $env) = @_; + my ($env) = @_; - $self->{env}{$name} = $env; + push @{ $self->{env} }, $env; } sub tab_handler { @@ -48,7 +48,7 @@ sub tab_handler { # these can't be lexicals return if $sigil eq '&' || $sigil eq '*'; - my $env = { map { %$_ } values %{ $self->{env} } }; + my $env = { map { %$_ } @{ $self->{env} } }; my @env = keys %$env; my @results; |