From 1147826c9093f70b143613d61afbcbb95c77db37 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 4 Jul 2013 18:00:37 +0200
Subject: fix smartmatch warnings on perl >= 5.018

---
 lib/Travel/Routing/DE/VRR.pm            | 6 ++++--
 lib/Travel/Routing/DE/VRR/Route.pm      | 4 ++--
 lib/Travel/Routing/DE/VRR/Route/Part.pm | 4 ++--
 3 files changed, 8 insertions(+), 6 deletions(-)

(limited to 'lib/Travel')

diff --git a/lib/Travel/Routing/DE/VRR.pm b/lib/Travel/Routing/DE/VRR.pm
index a88c9d6..29a30b3 100644
--- a/lib/Travel/Routing/DE/VRR.pm
+++ b/lib/Travel/Routing/DE/VRR.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use 5.010;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
 use Carp qw(cluck);
 use Encode qw(decode);
 use Travel::Routing::DE::VRR::Route;
@@ -37,7 +39,7 @@ use Exception::Class (
 	},
 );
 
-our $VERSION = '2.02';
+our $VERSION = '2.03';
 
 sub set_time {
 	my ( $self, %conf ) = @_;
@@ -684,7 +686,7 @@ Travel::Routing::DE::VRR - unofficial interface to the efa.vrr.de German itinera
 
 =head1 VERSION
 
-version 2.02
+version 2.03
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Routing/DE/VRR/Route.pm b/lib/Travel/Routing/DE/VRR/Route.pm
index dc64eab..9f110db 100644
--- a/lib/Travel/Routing/DE/VRR/Route.pm
+++ b/lib/Travel/Routing/DE/VRR/Route.pm
@@ -8,7 +8,7 @@ use parent 'Class::Accessor';
 
 use Travel::Routing::DE::VRR::Route::Part;
 
-our $VERSION = '2.02';
+our $VERSION = '2.03';
 
 Travel::Routing::DE::VRR::Route->mk_ro_accessors(
 	qw(duration ticket_text ticket_type fare_adult fare_child vehicle_time));
@@ -52,7 +52,7 @@ Travel::Routing::DE::VRR::Route - Single route (connection) between two points
 
 =head1 VERSION
 
-version 2.02
+version 2.03
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Routing/DE/VRR/Route/Part.pm b/lib/Travel/Routing/DE/VRR/Route/Part.pm
index 7397b82..8d50322 100644
--- a/lib/Travel/Routing/DE/VRR/Route/Part.pm
+++ b/lib/Travel/Routing/DE/VRR/Route/Part.pm
@@ -6,7 +6,7 @@ use 5.010;
 
 use parent 'Class::Accessor';
 
-our $VERSION = '2.02';
+our $VERSION = '2.03';
 
 Travel::Routing::DE::VRR::Route::Part->mk_ro_accessors(
 	qw(arrival_platform arrival_stop
@@ -86,7 +86,7 @@ points, without interchanges
 
 =head1 VERSION
 
-version 2.02
+version 2.03
 
 =head1 DESCRIPTION
 
-- 
cgit v1.2.3