oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Stow to always return safe copies of stowed data.

Browse source 
And test it.
This commit is contained in:
Colin Kuskie 2008-08-02 22:47:15 +00:00
parent 159f2daf60
commit 19987b53b4
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Session/Stow.t
View file

@ -80,7 +80,7 @@ my $milList = $stow->get("military");
push @{ $milList }, qw/foxtrot echo/;
is_deeply($stow->get("military"), [ @orig_list, qw/foxtrot echo/ ], "modifying fetched list changes stow'ed list because it is a reference");
is_deeply($stow->get("military"), [ @orig_list ], "modifying fetched list does not change original because it is a safe copy");
is($stow->delete(), undef, 'deleting with no key returns undef');
is($stow->delete('noSuchKey'), undef, 'deleting non-existant variable returns undef');