diff options
author | dakkar <dakkar@thenautilus.net> | 2012-12-14 15:10:19 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2012-12-14 15:10:19 +0000 |
commit | 6066f13e1cd04eb22a5b6e6bbbfd6ffc7aa70e59 (patch) | |
tree | 88625d95e6ba728ed4b1275e04fc54b24df93125 /lib | |
parent | more "ignore body" (diff) | |
download | feeder-6066f13e1cd04eb22a5b6e6bbbfd6ffc7aa70e59.tar.gz feeder-6066f13e1cd04eb22a5b6e6bbbfd6ffc7aa70e59.tar.bz2 feeder-6066f13e1cd04eb22a5b6e6bbbfd6ffc7aa70e59.zip |
avoid some undefs
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Feed/Role/DeDupe.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/Feed/Role/DeDupe.pm b/lib/Feed/Role/DeDupe.pm index 9cd19c8..4e470d7 100644 --- a/lib/Feed/Role/DeDupe.pm +++ b/lib/Feed/Role/DeDupe.pm @@ -144,7 +144,7 @@ sub mark_seen { sub _entry_id { my ($self,$e) = @_; - my $id = $e->id; + my $id = $e->id // $e->link; $self->log->trace("_entry_id: $id"); @@ -158,9 +158,11 @@ sub _entry_id { if ($self->dedupe_use_body) { my $body = $e->content->body; - my $content_digest = sha1_base64(encode('utf-8',$body)); - $id .= '-' . $content_digest; - $self->log->trace("_entry_id: (with content) $id"); + if ($body) { + my $content_digest = sha1_base64(encode('utf-8',$body)); + $id .= '-' . $content_digest; + $self->log->trace("_entry_id: (with content) $id"); + } } return encode('utf-8',$id); |