From 1574bc0c80918234921a4963624343b33fcc8d31 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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/EFA.pm')

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{
 		(?<netroot> (?<root> [^:]+ : // [^/]+ ) / [^/]+ / )
@@ -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