diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-12-03 14:04:52 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-12-03 14:04:52 +0100 |
commit | ab020b55629130202638ee2019117718a854a5ff (patch) | |
tree | fc60de691bf42afcfc4461e444b44c4b63ba52f6 /lib/Travel/Status/DE/DeutscheBahn/Result.pm | |
parent | 3f4c8ae06655aebd8fbdcb292523a21960691d27 (diff) |
Add language switch for extra information (delay reasons etc.)
Diffstat (limited to 'lib/Travel/Status/DE/DeutscheBahn/Result.pm')
-rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn/Result.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm index 53585cf..4860810 100644 --- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm +++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm @@ -38,7 +38,8 @@ sub info { $info =~ s{ ,Grund }{}ox; $info =~ s{ ^ \s+ }{}ox; - $info =~ s{ (?: ^ | , ) (?: p.nktlich | k [.] A [.] ) }{}ox; + $info + =~ s{ (?: ^ | , ) (?: p.nktlich | [nk] [.] [Aa] [.] | on \s time ) }{}ox; $info =~ s{ ^ , }{}ox; return $info; |