diff options
| -rw-r--r-- | Changelog | 5 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn.pm | 4 |
2 files changed, 8 insertions, 1 deletions
@@ -1,3 +1,8 @@ +git HEAD + + [Travel::Status::DE::DeutscheBahn] + * Strip leading / trailing whitespace in result fields + Travel::Status::DE::DeutscheBahn 0.02 - Wed Jul 06 2011 [db-ris] diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index bd22103..ea869d0 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -62,7 +62,7 @@ sub new { confess("Could not submit POST request: ${errstr}"); } - $ref->{html} = $reply->content(); + $ref->{html} = $reply->content; $ref->{tree} = XML::LibXML->load_html( string => $ref->{html}, @@ -138,6 +138,8 @@ sub results { for my $str ( $time, $train, $dest, $platform, $info ) { $str =~ s/\n/ /mg; $str =~ tr/ //s; + $str =~ s/^ +//; + $str =~ s/ +$//; } $info =~ s{ ,Grund }{}ox; |