Changeset 2145

Timestamp:

08/29/18 20:15:46 (6 years ago)

Author:

nanardon

Message:

Avoid some die due to untrap error

File:

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

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

@@ -139 +139 @@
                 my @objs;
                 if ($otype eq '@') {
-                    if (@{$env->{_lastsearch}}) {
+                    if (@{$env->{_lastsearch} || []}) {
                         $otype = $env->{_lastsearchtype};
                         @ids = @{$env->{_lastsearch}};
@@ -552 +552 @@
             code => sub {
                 my ($env, $attrname, @objects) = @_;
-                my $totype = $env->base->attribute($env->{_otype},
-                    $attrname)->reference or return;
+
+                my $attr = $env->base->attribute(
+                    $env->{_otype},
+                    $attrname
+                ) or do {
+                    print $OUT "No attribute $attrname";
+                    return;
+                };
+                my $totype = $attr->reference or return;
 
                 if (! @objects) {