From 53e0db6d32d6e6f65c6b6b80bcabcde076982809 Mon Sep 17 00:00:00 2001 From: Daniel Friesel 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