X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWWW%2FSearch%2FTorrentz%2FResult.pm;fp=lib%2FWWW%2FSearch%2FTorrentz%2FResult.pm;h=5f979b5d15669c9872a50f68d0db75ee3ef956fa;hb=0d82c6efc74924da3684df74e8d8f198e3fbe6b7;hp=6ab9955661d0f730f5d39b68cada984f0cea01ce;hpb=a1d7294ba7262b71bc28353903f89c8134805fa3;p=www-search-torrentz.git 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') }