diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-04-18 00:14:04 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-04-18 00:14:04 +0200 |
commit | 98ff359879119cfbdf8399ebaab5ff3cb4d14bb1 (patch) | |
tree | 500e24489230ee357893a51bdd78f2f49c3e1b7b | |
parent | 30c1daf25d36fd4a630edc46323b5a2dc7e6c555 (diff) |
envstore: API change - save var value instead of var=value
-rwxr-xr-x | bin/envstore | 10 |
1 files 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') { |