From 4f352ff29fb6506f8dccc423899fe8dd5801a98e Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 14 Mar 2017 18:14:45 +0000
Subject: fix UnBase64

---
 lib/Feed/Role/UnBase64.pm | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/lib/Feed/Role/UnBase64.pm b/lib/Feed/Role/UnBase64.pm
index 943d066..9f7d08a 100644
--- a/lib/Feed/Role/UnBase64.pm
+++ b/lib/Feed/Role/UnBase64.pm
@@ -5,19 +5,14 @@ use namespace::autoclean;
 use MIME::Base64;
 use Try::Tiny;
 
-around extract_entries => sub {
-    my ($orig, $self) = @_;
+before process_entry => sub {
+    my ($self, $entry) = @_;
 
-    my $entries = $self->$orig();
-
-    for my $entry (@{ $entries }) {
-        my $html= $entry->content->body;
-        if( $html =~ m{\A[A-Za-z0-9/=-]+\z} ) {
-            try { $entry->content( decode_base64($html) ) };
-        };
+    my $html = $entry->unified_content->body or return;
+    $self->log->warn(">>$html<<");
+    if( $html =~ m{\A[A-Za-z0-9/=+\n-]+\z} ) {
+        try { $entry->content( decode_base64($html) ) };
     };
-
-    return $entries;
 };
 
 1;
-- 
cgit v1.2.3