diff options
Diffstat (limited to 'lib/Feed/Role/DeDupe.pm')
-rw-r--r-- | lib/Feed/Role/DeDupe.pm | 8 |
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); } |