fix exclude / --exclude bug

3 files changed, 14 insertions, 5 deletions

diff --git a/Changelog b/Changelog
index e2b35a8..183a8e5 100644
--- a/Changelog
+++ b/Changelog
@@ -2,6 +2,7 @@ git HEAD
 
     * Route::Part: Add {arrival,departure}_{route,station}maps accessors
     * efa: Add -m, --maps option
+    * Fix exclude / --exclude (didn't work at all previously)
 
 Travel::Routing::DE::VRR 2.05 - Mon Mar 03 2014
 
diff --git a/bin/efa b/bin/efa
index f63c9d2..0d35fbc 100755
--- a/bin/efa
+++ b/bin/efa
@@ -216,6 +216,10 @@ if ( defined $opt->{'ignore-info'} and length( $opt->{'ignore-info'} ) == 0 ) {
 	$opt->{'ignore-info'} = undef;
 }
 
+if ( $opt->{exclude} ) {
+	$opt->{exclude} = [ split( /,/, join( ',', @{ $opt->{exclude} } ) ) ];
+}
+
 $efa = eval {
 	Travel::Routing::DE::EFA->new(
 		efa_url => $efa_url,
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);