From 4723417a0e4c38ba9bf00a95d70e6872535c4d4c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 16 Nov 2010 05:16:44 -0600
Subject: fix another edge case

---
 lib/Package/Stash/PP.pm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'lib/Package/Stash/PP.pm')

diff --git a/lib/Package/Stash/PP.pm b/lib/Package/Stash/PP.pm
index 446642b..55dfddd 100644
--- a/lib/Package/Stash/PP.pm
+++ b/lib/Package/Stash/PP.pm
@@ -196,13 +196,7 @@ sub get_symbol {
             }
         }
         else {
-            if ($type eq 'CODE') {
-                # this effectively "de-vivifies" the code slot. if we don't do
-                # this, referencing the coderef at the end of this function
-                # will cause perl to auto-vivify a stub coderef in the slot,
-                # which isn't what we want
-                $self->add_symbol($variable);
-            }
+            return undef;
         }
     }
 
-- 
cgit v1.2.3-54-g00ecf