Changeset 2519

Timestamp:

03/30/22 13:55:56 (2 years ago)

Author:

nanardon

Message:

Avoid die()

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm

@@ -715 +715 @@
             completion => sub {
                 if ($_[2]) {
-                    my $totype = $_[0]->base->attribute($_[0]->{_otype},
-                        $_[2])->reference or return;
+                    my $attr = $_[0]->base->attribute($_[0]->{_otype}, $_[2])
+                        or return;
+                    my $totype = $attr->reference or return;
                     return grep { $_ }
                            map { $_->get_attributes($_[2]) }