Fix WWW::Search::Torrentz on perl < 5.18

diff --git a/Changes b/Changes
index d39cc29c4f9e3a4fa0ff754804975463455f112d..48c88d6b284c0bfdaf2830297cc100979053cd8e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,6 @@
 Revision history for Perl extension WWW::Search::Torrentz.
 
+0.001001  Tue 10 Sep 09:52:24 EEST 2013
+       - Fix WWW::Search::Torrentz on perl < 5.018
 0.001  Mon  9 Sep 15:00:23 EEST 2013
        - Initial release

diff --git a/README b/README
index b0b80bdb93eda53e012f560cd2dd752190f2b95d..8957775701f3d3c0471bfece8c9cfaf06a0e2e22 100644 (file)
--- a/README
+++ b/README
@@ -1,5 +1,5 @@
-WWW-Search-Torrentz version 0.001
-=================================
+WWW-Search-Torrentz version 0.001001
+====================================
 
 WWW::Search::Torrentz is a WWW::Search backend for the http://torrentz.eu
 torrent search aggregator.

diff --git a/lib/WWW/Search/Torrentz.pm b/lib/WWW/Search/Torrentz.pm
index cd5920dd64a6f323c04955d5333743ab1a7c89f7..4c575e64de34528dd17e6d52721829f1477ad54f 100644 (file)
--- a/lib/WWW/Search/Torrentz.pm
+++ b/lib/WWW/Search/Torrentz.pm
@@ -3,10 +3,10 @@ package WWW::Search::Torrentz;
 use 5.014000;
 use strict;
 use warnings;
-no warnings 'experimental::smartmatch';
+no if $] >= 5.018, warnings => 'experimental::smartmatch';
 use parent qw/WWW::Search/;
 
-our $VERSION = '0.001';
+our $VERSION = '0.001001';
 our $MAINTAINER = 'Marius Gavrilescu <marius@ieval.ro>';
 
 use WWW::Search::Torrentz::Result;
@@ -75,7 +75,7 @@ __END__
 
 =head1 NAME
 
-WWW::Search::Torrentz - search torrentz.eu with WWW:Search
+WWW::Search::Torrentz - search torrentz.eu with WWW::Search
 
 =head1 SYNOPSIS
 

diff --git a/lib/WWW/Search/Torrentz/Result.pm b/lib/WWW/Search/Torrentz/Result.pm
index ee3de1cd006ffefbeb10cc9b2c6dd4803c959468..487e2026ca527c23e95770425079a8a6a5de1ebb 100644 (file)
--- a/lib/WWW/Search/Torrentz/Result.pm
+++ b/lib/WWW/Search/Torrentz/Result.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use parent qw/WWW::SearchResult/;
 
-our $VERSION = '0.001';
+our $VERSION = '0.001001';
 
 use HTML::TreeBuilder;
 use URI::Escape qw/uri_escape/;