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 | |
| parent | 4995165edcb08e2f364bfc7fc42d2f65bcd069c0 (diff) | |
Simplestore: save: use lexical loop variables
| -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 _"); } |