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 { | 
