Fix bug in conversion process between RSS and Atom where HTML got double encoded

https://rt.cpan.org/Public/Bug/Display.html?id=44899

diff --git a/Build.PL b/Build.PL
index 929c271..b09a1b3 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -17,9 +17,9 @@ my $build = Module::Build
                           'LWP::UserAgent'             => 0,
                           'Module::Pluggable'          => 0,
                           'URI::Fetch'                 => 0,
-                          'XML::Atom'                  => '0.32',
+                          'XML::Atom'                  => '0.37',
                           'XML::LibXML'                => '1.66',
-                          'XML::RSS'                   => '1.44',
+                          'XML::RSS'                   => '1.47',
                           'Test::More'                 => 0,
                         },
          create_makefile_pl => 'traditional',

diff --git a/Changes b/Changes
index bed5b93..da90a6f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,11 @@
 
 Revision history for XML::Feed
 
+0.44
+    - Fix problem with HTML escaping in conversion
+      https://rt.cpan.org/Public/Bug/Display.html?id=44899
+      (Dave Cross & Shlomi Fish)
+
 0.43  
     - Add optional multi enclosure support
     - Fix buglet with odd date terms

diff --git a/lib/XML/Feed.pm b/lib/XML/Feed.pm
index 13f00bf..7f609f3 100644 (file)
--- a/lib/XML/Feed.pm
+++ b/lib/XML/Feed.pm
@@ -12,7 +12,7 @@ use Module::Pluggable search_path => "XML::Feed::Format",
                       require     => 1,
                       sub_name    => 'formatters';
 
-our $VERSION = '0.43';
+our $VERSION = '0.44';
 our $MULTIPLE_ENCLOSURES = 0;
 our @formatters;
 BEGIN {

diff --git a/lib/XML/Feed/Format/Atom.pm b/lib/XML/Feed/Format/Atom.pm
index 7e8feba..53573f5 100644 (file)
--- a/lib/XML/Feed/Format/Atom.pm
+++ b/lib/XML/Feed/Format/Atom.pm
@@ -214,14 +214,7 @@ sub content {
                        $orig_body = $_[0];
             %param = (Body => $_[0]);
         }
-        #if (!exists($param{Body}))
-        #{
-        #    $param{Body} = $orig_body;
-        #}
         $entry->{entry}->content(XML::Atom::Content->new(%param, Version => 1.0));
-        # Assigning again so the type will be normalized. This seems to be
-        # an XML-Atom do-what-I-don't-meannery.
-        #$entry->{entry}->content->body($orig_body);
         $entry->{entry}->content->base($base) if defined $base;
     } else {
         my $c = $entry->{entry}->content;