From cad6d9c60381336517831443f1fbec69ff498fb0 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 1 Jul 2013 21:44:21 -0400
Subject: avoid dying when checking weird stash entries for completions

---
 lib/Reply/Plugin/Autocomplete/Globals.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib')

diff --git a/lib/Reply/Plugin/Autocomplete/Globals.pm b/lib/Reply/Plugin/Autocomplete/Globals.pm
index 4346544..1d043ff 100644
--- a/lib/Reply/Plugin/Autocomplete/Globals.pm
+++ b/lib/Reply/Plugin/Autocomplete/Globals.pm
@@ -83,6 +83,15 @@ sub _recursive_symbols {
 
     my @symbols;
     for my $name ($stash->list_all_symbols) {
+        # main can have things in it like "_<reader Foo::bar (defined at ...)"
+        # which aren't real variables - don't complete them, because we only
+        # care about things that can be used as literal variable names. be sure
+        # to not also block out punctuation variables.
+        # XXX fix for unicode
+        # XXX fix for variables like ${^GLOBAL_PHASE}
+        next unless $name =~ /^[A-Z_a-z][0-9A-Z_a-z]*(?:::)?$/
+                 || length($name) == 1;
+
         if ($name =~ s/::$//) {
             my $next = Package::Stash->new(join('::', $stash_name, $name));
             next if $next->namespace == $stash->namespace;
-- 
cgit v1.2.3-54-g00ecf