From d4f755a790d60fee0757d406d397153d99f1649e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 3 Jan 2013 19:55:53 -0600
Subject: handle things like PL_sv_undef here

it's B::SPECIAL, not B::SV (sigh)
---
 t/edge-cases.t | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 't')

diff --git a/t/edge-cases.t b/t/edge-cases.t
index 49f56ed..58b819e 100755
--- a/t/edge-cases.t
+++ b/t/edge-cases.t
@@ -87,4 +87,10 @@ SKIP: {
     is($warning, undef, "no redefinition warnings");
 }
 
+{
+    my $stash = Package::Stash->new('Baz');
+    $stash->add_symbol('$baz', \undef);
+    ok($stash->has_symbol('$baz'));
+}
+
 done_testing;
-- 
cgit v1.2.3-54-g00ecf