diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2010-06-05 19:30:16 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-06-05 19:30:16 +0200 |
commit | a01aed02dec749b4e9c0740590e888cd66b7ba57 (patch) | |
tree | a33b53a97d14ef498a9c97bd404fae771f7f1efe | |
parent | d47e303f21b44312ad85e429ca89ed5d23f883ad (diff) |
Fix special cases like "nicht umsteigen, Weiterfahrt [...]"
-rwxr-xr-x | bin/efa | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -52,6 +52,13 @@ sub display_connection { for my $con (@{$con_parts}) { + if (@{$con} < 5) { + foreach my $str (@{$con}) { + say "# $str"; + } + next; + } + if ($con->[0] !~ / \d{2} : \d{2} /ox) { splice(@{$con}, 0, 0, q{}); splice(@{$con}, 4, 0, q{}); |