From 3638390f26f75a8d12e1a1feec2218c9b4331014 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sun, 12 Jul 2009 17:52:36 +0200
Subject: Simplestore: save: use lexical loop variables

---
 lib/Simplestore.pm | 3 +--
 1 file changed, 1 insertion(+), 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 _");
 		}
-- 
cgit v1.2.3