From d54e33433ab4aaf1e727803405533e22f746f87d Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Tue, 10 Sep 2013 09:53:30 +0300
Subject: [PATCH] Fix WWW::Search::Torrentz on perl < 5.18

---
 Changes                           | 2 ++
 README                            | 4 ++--
 lib/WWW/Search/Torrentz.pm        | 6 +++---
 lib/WWW/Search/Torrentz/Result.pm | 2 +-
 4 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/Changes b/Changes
index d39cc29..48c88d6 100644
--- 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 b0b80bd..8957775 100644
--- 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 cd5920d..4c575e6 100644
--- 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 ee3de1c..487e202 100644
--- 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/;
-- 
2.39.2