Changeset 2372

Timestamp:

06/02/20 11:06:48 (4 years ago)

Author:

nanardon

Message:

Fix configuration parsing for base

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -155 +155 @@
     la_log(LA_DEBUG, "Trying to load base %s", $section);
 
-    my %params =
-        map { $_ => ($self->val($section, $_) || undef) }
-        ($self->Parameters($section), $self->Parameters('_default_'));
+    my %params = ();
+
+    foreach ( $self->Parameters($section), $self->Parameters('_default_') ) {
+        my ($val) = $self->val($section, $_);
+        $params{ $_ } = $val;
+    }
  
-    my %defattr =
-        map { $_ => ($self->val('_defattr_', $_)) }
-        $self->Parameters('_defattr_');
+    my %defattr = ();
+
+    foreach ( $self->Parameters('_defattr_') ) {
+        my ($val) = $self->val( '_defattr_', $_ );
+        $defattr{ $_ } = $val;
+    }
 
     $params{monitored} = {};