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

---
 t/07-edge-cases.t | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 't')

diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t
index feec31e..cf75847 100755
--- a/t/07-edge-cases.t
+++ b/t/07-edge-cases.t
@@ -47,4 +47,9 @@ ok($stash->has_symbol('%added'), '%added');
 my $constant = $stash->get_symbol('&FOO');
 is(ref($constant), 'CODE', "expanded a constant into a coderef");
 
+# ensure get doesn't prevent subsequent vivification (not sure what the deal
+# was here)
+is(ref($stash->get_symbol('$glob')), '', "nothing yet");
+is(ref($stash->get_or_add_symbol('$glob')), 'SCALAR', "got an empty scalar");
+
 done_testing;
-- 
cgit v1.2.3