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

Timestamp:

06/25/15 15:38:45 (9 years ago)

Author:

nanardon

Message:

Fix object return detection: stringify return null if _id is unset

File:

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

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

@@ -78 +78 @@
     # finding perl class:
     my $pclass = $base->_load_obj_class($otype) or return;
-    my $newobj = "$pclass"->new($base, $id, @args) or return;
+    my $newobj = "$pclass"->new($base, $id, @args);
+
+    defined($newobj) or do {
+        $base->log(LA_DEBUG, "$pclass->new() returned undef for $otype / $id");
+        return;
+    };
 
     $newobj->{_base} = $base;