From 8e9433f86979d3c4efe49fdab9648c052e2390a7 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 21 Jun 2014 15:56:22 +0100
Subject: silence warns on 5.20

---
 Makefile.PL       | 1 +
 lib/Feed.pm       | 4 ++--
 lib/Feed/Utils.pm | 2 ++
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 7a47e90..776f429 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -26,6 +26,7 @@ WriteMakefile(
         'Encode::IMAPUTF7' => 0,
         'HTML::ExtractMain' => 0,
         'LWP::UserAgent' => 6,
+        'LWP::Protocol::https' => 0,
         'Log::Log4perl' => 0,
         'MIME::Lite' => 0,
         'Maildir::Lite' => 0,
diff --git a/lib/Feed.pm b/lib/Feed.pm
index 177e484..09e9dd9 100644
--- a/lib/Feed.pm
+++ b/lib/Feed.pm
@@ -136,8 +136,8 @@ sub get_feed {
 
     $content =~ s{^\s*}{}; # some feed have invalid whitespace at the beginning
 
-    return XML::Feed->parse(\$content)
-        or die XML::Feed->errstr;
+    return( XML::Feed->parse(\$content)
+        or die XML::Feed->errstr );
 }
 
 sub extract_entries {
diff --git a/lib/Feed/Utils.pm b/lib/Feed/Utils.pm
index ab6b27b..7a6c5bb 100644
--- a/lib/Feed/Utils.pm
+++ b/lib/Feed/Utils.pm
@@ -78,6 +78,8 @@ sub feeds_from_opml {
             // $feed_node->findvalue('@text') // '';
         my $uri = $feed_node->findvalue('@xmlUrl');
 
+        no warnings 'experimental::smartmatch';
+
         next if $uri ~~ @exclude;
 
         feed(%$common_args,title=>$title,uri=>$uri);
-- 
cgit v1.2.3