Changeset 2400 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

Timestamp:

06/15/20 19:10:36 (4 years ago)

Author:

nanardon

Message:

Few fixes in la-cli

File:

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

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

@@ -94 +94 @@
                     foreach(sort $labase->list_canonical_fields($args[0], 'a')) {
                         my $attr = $labase->attribute($args[0], $_);
-                        $self->printf("%s   %s\n", ($attr ? ($attr->ro ? 'r ' : 'rw') : '  '), $_);
+                        $self->printf(
+                            "%s   %s%s\n",
+                            ($attr ? ($attr->ro ? 'r ' : 'rw') : '  '),
+                            $_,
+                            $attr->reference ? ' (=> ' . $attr->reference . ')' : '',
+                        );
                     }
                 } else {
@@ -500 +505 @@
     my ($op, $shellLine, $internalLine);
 
-    if ($cmdLine =~ /^(.*?)(?<![\\|])([\|\>])\s*([^\|].*)?$/) {
+    if ($cmdLine =~ /^(.*?)(?<![\S\\|])([\|\>])\s*([^\|].*)?$/) {
         $internalLine = $1;
         $op = $2;