From 98ff359879119cfbdf8399ebaab5ff3cb4d14bb1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 18 Apr 2009 00:14:04 +0200 Subject: envstore: API change - save var value instead of var=value --- bin/envstore | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/bin/envstore b/bin/envstore index 5c27b22..5dad484 100755 --- a/bin/envstore +++ b/bin/envstore @@ -9,6 +9,7 @@ my $store_file = "/tmp/.envstore-$>"; my %store; my $action = shift; my $arg = shift; +my $arg2 = shift; my ($key, $value); sub check_store { @@ -54,11 +55,8 @@ sub save_store { } sub get_keyvalue { - my $arg = shift; - my ($key, $value); - $arg =~ /^(\w+)(?:=(.*))?$/; - ($key, $value) = ($1, $2); - unless (defined($2)) { + my ($key, $value) = @_; + unless (defined($value)) { if (exists($ENV{$key})) { $value = $ENV{$key}; } else { @@ -71,7 +69,7 @@ sub get_keyvalue { load_store; if ($action eq 'save') { - ($key, $value) = get_keyvalue($arg); + ($key, $value) = get_keyvalue($arg, $arg2); $store{$key} = $value; save_store; } elsif ($action eq 'eval') { -- cgit v1.2.3