From 10687196f1f39d01c17a415898758b3a65608396 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 13 Jul 2011 13:13:24 +0200 Subject: DeutscheBahn/Result: Return only useful text in info, add info_raw for the raw string --- lib/Travel/Status/DE/DeutscheBahn.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'lib/Travel/Status/DE/DeutscheBahn.pm') diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index 8919dfc..9f71eb0 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -142,9 +142,6 @@ sub results { $str =~ s/ +$//; } - $info =~ s{ ,Grund }{}ox; - $info =~ s{ ^ \s+ }{}ox; - while ( $route =~ m{$re_via}g ) { if ($first) { $first = 0; @@ -168,7 +165,7 @@ sub results { route => \@via, route_end => $dest, platform => $platform, - info => $info, + info_raw => $info, ) ); } -- cgit v1.2.3