Changeset 501

Timestamp:

10/08/09 16:38:04 (15 years ago)

Author:

nanardon

Message:

• fix array reference access

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -299 +299 @@
         };
         $attr =~ /^aliases$/ and do {
-            my %aliases = map { $_ => 1 } @{$data{$attr}};
+            my %aliases = map { $_ => 1 } (ref $data{$attr} ? @{$data{$attr}} :
+                $data{$attr});
             foreach ($self->get_attributes('aliases')) {
                 $aliases{$_} ||= 0;