From 31d9adeefab30e0e8902454d677d0df1ca26c6ee Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 2 May 2015 16:34:21 +0300 Subject: [PATCH] Fix push on reference warnings --- lib/App/FonBot/Plugin/Common.pm | 2 +- lib/App/FonBot/Plugin/HTTPD.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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} -- 2.39.2