From 6066f13e1cd04eb22a5b6e6bbbfd6ffc7aa70e59 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 14 Dec 2012 15:10:19 +0000
Subject: avoid some undefs

---
 lib/Feed/Role/DeDupe.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lib')

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);
-- 
cgit v1.2.3