fix search order

diff --git a/lib/Mubot4FB.pm b/lib/Mubot4FB.pm
index 6c758c6..b9a4b70 100644 (file)
--- a/lib/Mubot4FB.pm
+++ b/lib/Mubot4FB.pm
@@ -141,7 +141,7 @@ sub _search_next {
 
        my $resp_msg = 'ないっす';
        if (defined $me->{last_search}->{$args->{who}}) {
-               my $ent = pop($me->{last_search}->{$args->{who}});
+               my $ent = shift($me->{last_search}->{$args->{who}});
                if ($ent) {
                        my $count = @{$me->{last_search}->{$args->{who}}};
                        if ($count) {