From 1147826c9093f70b143613d61afbcbb95c77db37 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 4 Jul 2013 18:00:37 +0200 Subject: fix smartmatch warnings on perl >= 5.018 --- bin/efa | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/efa b/bin/efa index db8f79f..583a48c 100755 --- a/bin/efa +++ b/bin/efa @@ -6,13 +6,15 @@ use strict; use warnings; use 5.010; +no if $] >= 5.018, warnings => "experimental::smartmatch"; + use utf8; use Travel::Routing::DE::VRR; use Exception::Class; use Getopt::Long qw/:config no_ignore_case/; -our $VERSION = '2.02'; +our $VERSION = '2.03'; my $ignore_info = 'Fahrradmitnahme'; my $efa; my ( @from, @to, @via, $from_type, $to_type, $via_type ); @@ -259,7 +261,7 @@ efa - unofficial efa.vrr.de command line client =head1 VERSION -version 2.02 +version 2.03 =head1 DESCRIPTION -- cgit v1.2.3