add a missing keys

fusioninventory · Aug 22, 2011 · 5c54f93 · 5c54f93
1 parent f991254
commit 5c54f93
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lib/FusionInventory/Agent/Task/Deploy.pm b/lib/FusionInventory/Agent/Task/Deploy.pm
@@ -91,10 +91,9 @@ sub _validateAnswer {
         $$msgRef = "associatedFiles should be an hash";
         return;
     }
-
-    foreach my $k (%{$answer->{associatedFiles}}) {
+    foreach my $k (keys %{$answer->{associatedFiles}}) {
         foreach (qw/mirrors multiparts name/) {
-            if (!defined($answer->{associatedFiles}{$k}{$_})) {
+            if (!defined($answer->{associatedFiles}->{$k}->{$_})) {
                 $$msgRef = "Missing key `$_' in associatedFiles";
                 return;
             }