Add search support

[webservice-strike.git] / lib / WebService / Strike / Torrent.pm

diff --git a/lib/WebService/Strike/Torrent.pm b/lib/WebService/Strike/Torrent.pm
index b8520005327fb96263ed8070fa12d0a7bf020fd5..82179fba3f57e4432737bc36af9f2810ada9b6c4 100644 (file)
--- a/lib/WebService/Strike/Torrent.pm
+++ b/lib/WebService/Strike/Torrent.pm
@@ -30,8 +30,10 @@ sub new{
        $self = $self->SUPER::new(@args);
        $self->{torrent_hash} = uc $self->hash;
        $self->{upload_date} = str2time $self->date, 'UTC';
-       $self->{file_names} = $self->file_info->[0]->{file_names};
-       $self->{file_lengths} = $self->file_info->[0]->{file_lengths};
+       if ($self->file_info) {
+               $self->{file_names} = $self->file_info->[0]->{file_names};
+               $self->{file_lengths} = $self->file_info->[0]->{file_lengths};
+       }
        $self
 }