diff options
author | Maximilian Gass <mxey@ghosthacking.net> | 2009-07-07 19:03:38 +0200 |
---|---|---|
committer | Maximilian Gass <mxey@ghosthacking.net> | 2009-07-07 19:03:38 +0200 |
commit | 4c15ad8c37da423034ed70254b4a97f056236946 (patch) | |
tree | e19e98c7952c289ed39e36201cd9d1deec7a1de2 /bin | |
parent | 13c4672e117e91ce47250ce545b91e87a7146f4c (diff) |
Ported to Storable
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/envstore | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/envstore b/bin/envstore index 973b61e..8a4ba1b 100755 --- a/bin/envstore +++ b/bin/envstore @@ -5,7 +5,7 @@ use strict; use warnings; use Pod::Usage; -use Simplestore; +use Storable; my $store_file = "/tmp/envstore-$>"; my %store; @@ -44,12 +44,12 @@ sub check_store { sub load_store { return unless check_store; - %store = %{load($store_file) || {}}; + %store = %{retrieve($store_file) || {}}; } sub save_store { umask(0077); - save($store_file, \%store); + store(\%store, $store_file); } sub get_keyvalue { |