From b051c70fc26a9ac98ba7d1c43fcc5d3ba9e91f4d Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Mon, 7 Dec 2015 11:16:57 +1000
Subject: [PATCH] * XML::Feed/XML::Parser hardly fails on 'undefined entity'

---
 Makefile.PL | 1 +
 twatch-lite | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Makefile.PL b/Makefile.PL
index ff9eca9..884275b 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -12,5 +12,6 @@ WriteMakefile(
     'XML::Feed'      => 0,
     'YAML::Any'      => 0,
     'Getopt::Long'   => 0,
+    'Html::Parser'   => 0,
   },
 );
diff --git a/twatch-lite b/twatch-lite
index 7895704..08c980e 100755
--- a/twatch-lite
+++ b/twatch-lite
@@ -9,6 +9,7 @@ use Getopt::Long;
 use YAML::Any qw(LoadFile);
 use LWP::UserAgent;
 use XML::Feed;
+use HTML::Entities;
 
 ##### variables
 our $VERSION = '0.02';
@@ -111,7 +112,8 @@ sub process_feed {
     return $urls;
   }
 
-  my $feed = XML::Feed->parse(\$resp->decoded_content);
+  my $data = decode_entities($resp->decoded_content);
+  my $feed = XML::Feed->parse(\$data);
   unless ($feed) {
     _log(error => "Can't parse feed: " . XML::Feed->errstr);
     return $urls;