From: Marius Gavrilescu <marius@ieval.ro>
Date: Fri, 21 Nov 2014 15:29:18 +0000 (+0200)
Subject: Fix exprimental push on reference warnings
X-Git-Tag: 0.001003~2
X-Git-Url: http://git.ieval.ro/?p=www-search-torrentz.git;a=commitdiff_plain;h=0d82c6efc74924da3684df74e8d8f198e3fbe6b7

Fix exprimental push on reference warnings
---

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')
 			}