Changeset 2347

Timestamp:

05/07/20 11:49:03 (4 years ago)

Author:

nanardon

Message:

Fix: don't check attribute on non object

File:

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

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

@@ -90 +90 @@
         if (substr($u->{user}, 0, 1) eq '$') { # check attr content
             my $attribute = substr($u->{user}, 1);
-            my $val = $obj->_get_c_field($attribute) or return;
+            my $val = (ref $obj ? $obj->_get_c_field($attribute) : undef)  or return;
             my @vals = ref $val ? (@{ $val }) : ($val);
             foreach (@vals) {