diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-11-29 03:04:56 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-11-29 03:04:56 -0600 |
commit | 0f40e41f356af017fc3ff3a2c685c61ff648b4c0 (patch) | |
tree | 923ea4c567ebaa5f70e733d56609f1228ae70b6d /t/basic.t | |
parent | c049a789b0ccb2734ee8c8f1b8a6bb80b575c19b (diff) | |
download | package-stash-0f40e41f356af017fc3ff3a2c685c61ff648b4c0.tar.gz package-stash-0f40e41f356af017fc3ff3a2c685c61ff648b4c0.zip |
don't initialize the slot unless a value is provided
Diffstat (limited to 't/basic.t')
-rw-r--r-- | t/basic.t | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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'); |