From 0f40e41f356af017fc3ff3a2c685c61ff648b4c0 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 29 Nov 2011 03:04:56 -0600 Subject: don't initialize the slot unless a value is provided --- t/basic.t | 2 ++ 1 file changed, 2 insertions(+) (limited to 't/basic.t') diff --git a/t/basic.t b/t/basic.t index f20e055..ded3d77 100644 --- a/t/basic.t +++ b/t/basic.t @@ -252,6 +252,8 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f { $foo_stash->add_symbol('%zork'); + ok(!$foo_stash->has_symbol('$zork'), + "add_symbol with single argument doesn't vivify scalar slot"); my $syms = $foo_stash->get_all_symbols('HASH'); -- cgit v1.2.3-54-g00ecf