Changeset 846

Timestamp:

03/28/10 19:02:09 (14 years ago)

Author:

nanardon

Message:

• fix help

File:

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

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

@@ -283 +283 @@
         print $OUT join(', ', sort keys %{ $self->{funcs} || {}});
     } elsif ($self->{funcs}{$name}{alias}) {
-        print $OUT "$name is an alias for `$self->{funcs}{$name}{alias} $name'";
+        print $OUT "$name is an alias for " . join(' ',
+            @{$self->{funcs}{$name}{alias}});
     } elsif ($self->{funcs}{$name}{help}) {
         print $OUT $self->{funcs}{$name}{help};