From 1574bc0c80918234921a4963624343b33fcc8d31 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 26 Jul 2014 16:35:46 +0200 Subject: fix exclude / --exclude bug --- lib/Travel/Routing/DE/EFA.pm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'lib/Travel/Routing/DE') diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm index c6ac3d9..dfed345 100644 --- a/lib/Travel/Routing/DE/EFA.pm +++ b/lib/Travel/Routing/DE/EFA.pm @@ -132,7 +132,7 @@ sub exclude { my $ok = 0; for my $map_id ( 0 .. $#mapping ) { if ( $exclude_type eq $mapping[$map_id] ) { - $self->{post}->{"inclMOT_${map_id}"} = undef; + delete $self->{post}->{"inclMOT_${map_id}"}; $ok = 1; } } @@ -432,7 +432,9 @@ sub new_from_xml { my $self = { xml_reply => $opt{xml} }; - $self->{config} = { efa_url => $opt{efa_url}, }; + $self->{config} = { + efa_url => $opt{efa_url}, + }; $self->{config}->{efa_url} =~ m{ (? (? [^:]+ : // [^/]+ ) / [^/]+ / ) @@ -459,7 +461,8 @@ sub submit { if ( $response->is_error ) { Travel::Routing::DE::EFA::Exception::Net->throw( - http_response => $response, ); + http_response => $response, + ); } $self->{xml_reply} = $response->decoded_content; @@ -638,8 +641,9 @@ sub parse_xml_part { sub parse_xml { my ($self) = @_; - my $tree = $self->{tree} - = XML::LibXML->load_xml( string => $self->{xml_reply}, ); + my $tree = $self->{tree} = XML::LibXML->load_xml( + string => $self->{xml_reply}, + ); #say $tree->toString(2); -- cgit v1.2.3