Changeset 485

Timestamp:

10/04/09 17:04:35 (15 years ago)

Author:

nanardon

Message:

• fix warning

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Mail/Aliases.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Mail/Aliases.pm

@@ -32 +32 @@
 sub get_field {
     my ($self, $field) = @_;
-    $field eq 'forward' and return
-        scalar(split(',', $self->base->{aliases}{$self->id})) > 1
-            ? [ split(',', $self->base->{aliases}{$self->id}) ]
+    $field eq 'forward' and do {
+        my @forw = split(',', $self->base->{aliases}{$self->id});
+        return scalar(@forw) > 1
+            ? [ @forw ]
             : $self->base->{aliases}{$self->id};
+    };
     return
 }