From 4c15ad8c37da423034ed70254b4a97f056236946 Mon Sep 17 00:00:00 2001 From: Maximilian Gass Date: Tue, 7 Jul 2009 19:03:38 +0200 Subject: Ported to Storable --- bin/envstore | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bin') 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 { -- cgit v1.2.3