diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-08-27 08:34:01 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-08-27 08:34:01 +0200 |
commit | 3d31ca398e83d86189fadb25b3934d016a16034e (patch) | |
tree | 322498af91e52daef80f8d3ae8784d38509f6251 /bin | |
parent | 6e1436516e31808af66271ead78c73620b8a214f (diff) |
efa: parse_content: Merged two if () checks
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -66,12 +66,9 @@ sub parse_content { my $offset = $i * $groupsize; my @extra; if ($raw->[$offer]->[$offset+2] =~ /^(Fußweg | Anschluss \s wird .* abgewartet)/x) { - # These are generic, which means they don't contain a time + # These are generic and lack both the time and the last element splice(@{$raw->[$offer]}, $offset, 0, ''); splice(@{$raw->[$offer]}, $offset+4, 0, ''); - } - if ($raw->[$offer]->[$offset+3] =~ /^(Fußweg | Anschluss \s wird .* abgewartet)/x) { - # These messages lack the last element, so inject it splice(@{$raw->[$offer]}, $offset+7, 0, ''); } for my $j (0, 4, 8) { |