Commit 1147826c authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

fix smartmatch warnings on perl >= 5.018

parent 52cc72dc

Changelog

+5 −1
Original line number Diff line number Diff line 
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

bin/efa

+4 −2
Original line number Diff line number Diff line
@@ -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

lib/Travel/Routing/DE/VRR.pm

+4 −2
Original line number Diff line number Diff line
@@ -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

lib/Travel/Routing/DE/VRR/Route.pm

+2 −2
Original line number Diff line number Diff line
@@ -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

lib/Travel/Routing/DE/VRR/Route/Part.pm

+2 −2
Original line number Diff line number Diff line
@@ -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