summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2013-09-05 19:01:22 +0200
committerDaniel Friesel <derf@finalrewind.org>2013-09-05 19:01:22 +0200
commit53e0db6d32d6e6f65c6b6b80bcabcde076982809 (patch)
tree96fcf180d37d07ecaecb1609d7037b1651737b6c
parentf6490ac30e225d1fb2975f4f0ff8401eb95f8063 (diff)
fix smartmatch warnings on perl >= 5.018
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn.pm2
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn/Result.pm2
2 files changed, 4 insertions, 0 deletions
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';