Fix push on reference warnings

diff --git a/lib/App/FonBot/Plugin/Common.pm b/lib/App/FonBot/Plugin/Common.pm
index 300cf6b1fb01c35de7b2dbb3fdc6033dd94fb11b..4866db92b4116456e6d164f4cf6e318f1a901191 100644 (file)
--- 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 785a0e757501b0e390469b13e1710da099508a33..933a56c61843cabce48f36d7783f02f1bc382166 100644 (file)
--- 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}