From a01aed02dec749b4e9c0740590e888cd66b7ba57 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 5 Jun 2010 19:30:16 +0200 Subject: Fix special cases like "nicht umsteigen, Weiterfahrt [...]" --- bin/efa | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/bin/efa b/bin/efa index a94bbf2..6920403 100755 --- a/bin/efa +++ b/bin/efa @@ -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{}); -- cgit v1.2.3