From: Marius Gavrilescu Date: Sat, 2 May 2015 13:34:21 +0000 (+0300) Subject: Fix push on reference warnings X-Git-Tag: 0.001~5 X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=31d9adeefab30e0e8902454d677d0df1ca26c6ee;p=app-fonbot-daemon.git Fix push on reference warnings --- diff --git a/lib/App/FonBot/Plugin/Common.pm b/lib/App/FonBot/Plugin/Common.pm index 300cf6b..4866db9 100644 --- a/lib/App/FonBot/Plugin/Common.pm +++ b/lib/App/FonBot/Plugin/Common.pm @@ -51,7 +51,7 @@ sub sendmsg{ if (exists $commands{$touser}) { my $temp = thaw $commands{$touser}; - push $temp, $data; + push @$temp, $data; $commands{$touser} = freeze $temp } else { $commands{$touser} = freeze [$data] diff --git a/lib/App/FonBot/Plugin/HTTPD.pm b/lib/App/FonBot/Plugin/HTTPD.pm index 785a0e7..933a56c 100644 --- a/lib/App/FonBot/Plugin/HTTPD.pm +++ b/lib/App/FonBot/Plugin/HTTPD.pm @@ -196,7 +196,7 @@ sub on_send{ if ($driver eq 'HTTP') { $responses{$user}//=[]; - push $responses{$user}, $content; + push @{$responses{$user}}, $content; if (exists $waiting_userrequests{$user}) { $waiting_userrequests{$user}->continue; delete $waiting_userrequests{$user}