summaryrefslogtreecommitdiff
path: root/lib/Feed/Role/DeDupe.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Feed/Role/DeDupe.pm')
-rw-r--r--lib/Feed/Role/DeDupe.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Feed/Role/DeDupe.pm b/lib/Feed/Role/DeDupe.pm
index 31ba1bf..641c898 100644
--- a/lib/Feed/Role/DeDupe.pm
+++ b/lib/Feed/Role/DeDupe.pm
@@ -132,9 +132,15 @@ sub mark_seen {
sub _entry_id {
my ($self,$e) = @_;
+ my $id = $e->id;
+
+ my $date = $e->modified // $e->issued;
+ if ($date) { $id .= '-' . $date->iso8601 }
+
my $body = $e->content->body;
my $content_digest = sha1_base64(encode('utf-8',$body));
- my $id = join '-',$e->id,$e->modified->iso8601,$content_digest;
+ $id .= '-' . $content_digest;
+
return encode('utf-8',$id);
}