From: Marius Gavrilescu <marius@ieval.ro>
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}