Merge commit 'smcv/atom'

master
Joey Hess 2009-02-03 15:04:36 -05:00
commit b8b302cfa3
1 changed files with 5 additions and 0 deletions

View File

@ -534,6 +534,11 @@ sub aggregate (@) {
} }
foreach my $entry ($f->entries) { foreach my $entry ($f->entries) {
# XML::Feed doesn't work around XML::Atom's bizarre
# API, so we will. Real unicode strings? Yes please.
# See [[bugs/Aggregated_Atom_feeds_are_double-encoded]]
local $XML::Atom::ForceUnicode = 1;
my $c=$entry->content; my $c=$entry->content;
# atom feeds may have no content, only a summary # atom feeds may have no content, only a summary
if (! defined $c && ref $entry->summary) { if (! defined $c && ref $entry->summary) {