Simplestore: save: use lexical loop variables

derf · Jul 12, 2009 · 3638390 · 3638390
1 parent 4995165
commit 3638390
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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 _");
 		}