diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-12 17:52:36 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-12 17:52:36 +0200 |
commit | 3638390f26f75a8d12e1a1feec2218c9b4331014 (patch) | |
tree | 23d067d5f9bffbf7fc9aeb1268cc931eb0f30e96 /lib | |
parent | 4995165edcb08e2f364bfc7fc42d2f65bcd069c0 (diff) |
Simplestore: save: use lexical loop variables
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Simplestore.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Simplestore.pm b/lib/Simplestore.pm index 35c94e2..b4446e5 100644 --- a/lib/Simplestore.pm +++ b/lib/Simplestore.pm @@ -34,9 +34,8 @@ sub load { sub save { my ($file, $store) = @_; - my $key; open(my $handle, '>', $file) or confess("Cannot open $file: $!"); - foreach $key (keys(%$store)) { + foreach my $key (keys(%$store)) { if ($key !~ /^\w+$/) { confess("Invalid key name: May only contain alphanumeric and _"); } |