Changeset 1927 for trunk

Timestamp:

01/12/17 15:17:20 (7 years ago)

Author:

nanardon

Message:

Avoid crash is indirect ref return nothing

File:

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

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

@@ -1353 +1353 @@
 
     my $ref = $self->base->_derefObject($self->type, $res->{oalias});
-
-    if (($ref->id || '') ne ($res->{oaliascache} || '')) {
+    my $id = $ref ? $ref->id : undef;
+
+    if (($id || '') ne ($res->{oaliascache} || '')) {
         my $upd = $self->base->db->prepare(
             sprintf(
@@ -1362 +1363 @@
             )
         );
-        $self->base->log(LA_DEBUG, "Updating Cache for alias %s => %s", $self->id, $ref->id);
-        return $upd->execute($ref->id, $self->id);
+        $self->base->log(LA_DEBUG, "Updating Cache for alias %s => %s", $self->id, $id || '(none)');
+        return $upd->execute($id, $self->id);
     }
 }