OSDN Git Service

Model::Users: fix get_user_config()
authorhylom <hylom@users.sourceforge.jp>
Fri, 8 Mar 2019 13:41:08 +0000 (22:41 +0900)
committerhylom <hylom@users.sourceforge.jp>
Fri, 8 Mar 2019 13:41:08 +0000 (22:41 +0900)
src/newslash_web/lib/Newslash/Model/Users.pm

index 8fe170a..7e29dfe 100644 (file)
@@ -186,7 +186,7 @@ sub select {
 
 sub get_user_config {
     my ($self, $users) = @_;
-    my $target = (ref($users) eq "HASH") ? [$users,] : $users;
+    my $target = (ref($users) eq "ARRAY") ? $users : [$users,];
 
     for my $u (@$target) {
         $u->{config} = $self->configs->select(id => $u->{uid});