Fix exprimental push on reference warnings

diff --git a/lib/WWW/Search/Torrentz/Result.pm b/lib/WWW/Search/Torrentz/Result.pm
index 6ab9955661d0f730f5d39b68cada984f0cea01ce..5f979b5d15669c9872a50f68d0db75ee3ef956fa 100644 (file)
--- 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')
                        }