diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-01-03 19:55:53 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-01-03 19:55:53 -0600 |
commit | d4f755a790d60fee0757d406d397153d99f1649e (patch) | |
tree | 54456e4f6545ad396fa79e14d98143c0eef3b565 /t | |
parent | cd533531efb6c83b02fd00fc50b264beb066be5f (diff) | |
download | package-stash-d4f755a790d60fee0757d406d397153d99f1649e.tar.gz package-stash-d4f755a790d60fee0757d406d397153d99f1649e.zip |
handle things like PL_sv_undef here
it's B::SPECIAL, not B::SV (sigh)
Diffstat (limited to 't')
-rwxr-xr-x | t/edge-cases.t | 6 |
1 files changed, 6 insertions, 0 deletions
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; |