summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2013-07-04 18:00:37 +0200
committerDaniel Friesel <derf@finalrewind.org>2013-07-04 18:00:37 +0200
commit1147826c9093f70b143613d61afbcbb95c77db37 (patch)
tree07cd14dd77abd293431aec32e37c4607b8d2a679
parent52cc72dc7d8fa4f896c3f395bafcabc33250b6b6 (diff)
fix smartmatch warnings on perl >= 5.0182.03
-rw-r--r--Changelog6
-rwxr-xr-xbin/efa6
-rw-r--r--lib/Travel/Routing/DE/VRR.pm6
-rw-r--r--lib/Travel/Routing/DE/VRR/Route.pm4
-rw-r--r--lib/Travel/Routing/DE/VRR/Route/Part.pm4
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