summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2014-06-21 15:56:22 +0100
committerdakkar <dakkar@thenautilus.net>2014-06-21 15:56:22 +0100
commit8e9433f86979d3c4efe49fdab9648c052e2390a7 (patch)
tree6ba618a5ae48e9804d415b509199464039a6a551 /lib
parentnew feeds (diff)
downloadfeeder-8e9433f86979d3c4efe49fdab9648c052e2390a7.tar.gz
feeder-8e9433f86979d3c4efe49fdab9648c052e2390a7.tar.bz2
feeder-8e9433f86979d3c4efe49fdab9648c052e2390a7.zip
silence warns on 5.20
Diffstat (limited to 'lib')
-rw-r--r--lib/Feed.pm4
-rw-r--r--lib/Feed/Utils.pm2
2 files changed, 4 insertions, 2 deletions
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);