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 | |
parent | 13c4672e117e91ce47250ce545b91e87a7146f4c (diff) |
Ported to Storable
-rw-r--r-- | README | 1 | ||||
-rwxr-xr-x | bin/envstore | 6 | ||||
-rw-r--r-- | prereqs | 1 |
3 files changed, 3 insertions, 5 deletions
@@ -1,3 +1,2 @@ Requires: - perl - - Simplestore <https://derf.homelinux.org/~derf/projects/simplestore> 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 { diff --git a/prereqs b/prereqs deleted file mode 100644 index d7afa60..0000000 --- a/prereqs +++ /dev/null @@ -1 +0,0 @@ -depend package simplestore |