From 48656ef560302c9e9864b84b2f95f266799d88e3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 4 Jul 2013 14:21:11 -0400
Subject: just give up on the whole 'name' thing here

---
 lib/Reply/Plugin/Autocomplete/Lexicals.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/Reply/Plugin/Autocomplete/Lexicals.pm')

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;
-- 
cgit v1.2.3-54-g00ecf