diff options
| author | dakkar <dakkar@thenautilus.net> | 2014-06-21 15:56:22 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2014-06-21 15:56:22 +0100 |
| commit | 8e9433f86979d3c4efe49fdab9648c052e2390a7 (patch) | |
| tree | 6ba618a5ae48e9804d415b509199464039a6a551 | |
| parent | new feeds (diff) | |
| download | feeder-8e9433f86979d3c4efe49fdab9648c052e2390a7.tar.gz feeder-8e9433f86979d3c4efe49fdab9648c052e2390a7.tar.bz2 feeder-8e9433f86979d3c4efe49fdab9648c052e2390a7.zip | |
silence warns on 5.20
| -rw-r--r-- | Makefile.PL | 1 | ||||
| -rw-r--r-- | lib/Feed.pm | 4 | ||||
| -rw-r--r-- | 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); |