diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Feed.pm | 4 | ||||
-rw-r--r-- | lib/Feed/Utils.pm | 2 |
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); |