Changeset 1839 for trunk

Timestamp:

09/13/16 18:55:53 (8 years ago)

Author:

nanardon

Message:

Fix value test on undef list

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (1 diff)
• Bases/Attributes.pm (modified) (1 diff)

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

@@ -699 +699 @@
     my ($self, $otype, $id, $newid) = @_;
 
+    $self->log(LA_DEBUG, "Trying to rename $otype/$id to $newid");
     my $obj = $self->get_object($otype, $id) or do {
         $self->log(LA_WARN, 'Cannot rename %s/%s: no such object',

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

@@ -240 +240 @@
     my ($self, $values) = @_;
 
-    foreach my $value (ref $values ? @{ $values } : $values) {
+    foreach my $value (grep { $_ } (ref $values ? @{ $values } : $values)) {
         if (!$self->checkinputformat($value)) {
             $self->base->log(LA_ERR, "Wrong format for  %s/%s: %s",