From 0d82c6efc74924da3684df74e8d8f198e3fbe6b7 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Fri, 21 Nov 2014 17:29:18 +0200
Subject: [PATCH] Fix exprimental push on reference warnings

---
 lib/WWW/Search/Torrentz/Result.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WWW/Search/Torrentz/Result.pm b/lib/WWW/Search/Torrentz/Result.pm
index 6ab9955..5f979b5 100644
--- a/lib/WWW/Search/Torrentz/Result.pm
+++ b/lib/WWW/Search/Torrentz/Result.pm
@@ -49,7 +49,7 @@ sub parse_page {
 	my $trackers = $tree->look_down(class => 'trackers');
 	$self->{trackers} //= [];
 	for my $tracker ($trackers->find('dl')) {
-		push $self->{trackers}, $tracker->find('a')->as_text;
+		push @{$self->{trackers}}, $tracker->find('a')->as_text;
 	}
 
 	my $files = $tree->look_down(class => 'files');
@@ -78,7 +78,7 @@ sub parse_directory{
 		} else {
 			$child->objectify_text;
 			my ($filename, $size) = $child->find('~text');
-			push $self->{files}, +{
+			push @{$self->{files}}, +{
 				path => $prefix.$filename->attr('text'),
 				size => $size->attr('text')
 			}
-- 
2.30.2