Changeset 1567 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

12/30/15 14:45:22 (8 years ago)

Author:

nanardon

Message:

Fix returned value and test

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (2 diffs)

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

@@ -248 +248 @@
     my ($self, $cfield) = @_;
     my $res = $self->get_c_field($cfield);
-    return ref $res ? @{ $res } : ($res);
+    if ($res) {
+        return(ref $res ? @{$res} : $res);
+    } else {
+        return;
+    }
 }
 
@@ -254 +258 @@
     my ($self, $cfield) = @_;
     my $res = $self->_get_c_field($cfield);
-    return ref $res ? @{ $res } : ($res);
+    if ($res) {
+        return(ref $res ? @{$res} : ($res));
+    } else {
+        return;
+    }
 }