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 --- Changelog | 6 +++++- bin/efa | 6 ++++-- lib/Travel/Routing/DE/VRR.pm | 6 ++++-- lib/Travel/Routing/DE/VRR/Route.pm | 4 ++-- lib/Travel/Routing/DE/VRR/Route/Part.pm | 4 ++-- 5 files changed, 17 insertions(+), 9 deletions(-) diff --git a/Changelog b/Changelog index 5afd69a..913de83 100644 --- a/Changelog +++ b/Changelog @@ -1,4 +1,8 @@ -Travel::RoutinG::DE::VRR 2.02 - Wed Apr 10 2013 +Travel::Routing::DE::VRR 2.03 - Thu Jul 4 2013 + + * Disable smartmatch warnings on perl >= 5.018 + +Travel::Routing::DE::VRR 2.02 - Wed Apr 10 2013 * Patch by Roland Hieber: respect proxy environment variables 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 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