From 53e0db6d32d6e6f65c6b6b80bcabcde076982809 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 5 Sep 2013 19:01:22 +0200
Subject: fix smartmatch warnings on perl >= 5.018

---
 lib/Travel/Status/DE/DeutscheBahn.pm        | 2 ++
 lib/Travel/Status/DE/DeutscheBahn/Result.pm | 2 ++
 2 files changed, 4 insertions(+)

(limited to 'lib/Travel')

diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index d54847a..be46a4a 100644
--- a/lib/Travel/Status/DE/DeutscheBahn.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use 5.010;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
 use Carp qw(confess);
 use LWP::UserAgent;
 use POSIX qw(strftime);
diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
index 0a9801b..c5a75b9 100644
--- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
@@ -4,6 +4,8 @@ use strict;
 use warnings;
 use 5.010;
 
+no if $] >= 5.018, warnings => "experimental::smartmatch";
+
 use parent 'Class::Accessor';
 
 our $VERSION = '1.01';
-- 
cgit v1.2.3