X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWebService%2FStrike%2FTorrent.pm;h=82179fba3f57e4432737bc36af9f2810ada9b6c4;hb=9373f0ade1d99182c2ef4205a94e2e054903cb0c;hp=34502bd4ee1a0af843a608f96c7e66d79cefbd50;hpb=9b0928060d55238fb248b38e3d9dc4e977d13fc4;p=webservice-strike.git

diff --git a/lib/WebService/Strike/Torrent.pm b/lib/WebService/Strike/Torrent.pm
index 34502bd..82179fb 100644
--- a/lib/WebService/Strike/Torrent.pm
+++ b/lib/WebService/Strike/Torrent.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use parent qw/Class::Accessor::Fast/;
 
-our $VERSION = '0.001001';
+our $VERSION = '0.001002';
 
 use Date::Parse qw/str2time/;
 use JSON::MaybeXS qw/decode_json/;
@@ -29,9 +29,11 @@ sub new{
 	my ($self, @args) = @_;
 	$self = $self->SUPER::new(@args);
 	$self->{torrent_hash} = uc $self->hash;
-	$self->{upload_date} = str2time $self->date;
-	$self->{file_names} = $self->file_info->[0]->{file_names};
-	$self->{file_lengths} = $self->file_info->[0]->{file_lengths};
+	$self->{upload_date} = str2time $self->date, 'UTC';
+	if ($self->file_info) {
+		$self->{file_names} = $self->file_info->[0]->{file_names};
+		$self->{file_lengths} = $self->file_info->[0]->{file_lengths};
+	}
 	$self
 }
 
@@ -79,7 +81,7 @@ WebService::Strike::Torrent - Class representing information about a torrent
   say $t->leeches;
   say $t->count;            # 1
   say $t->size;             # 587 MB
-  say $t->date;             # 1420495200
+  say $t->date;             # 1420502400
   say $t->uploader;         # The_Doctor-
   say @{$t->names};         # archlinux-2015.01.01-dual.iso
   say @{$t->lengths};       # 615514112