diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/hafas-m | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/hafas-m b/bin/hafas-m index 5476cb5..e667a66 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -91,9 +91,9 @@ sub parse_mot_options { if ( not $hafas_url ) { $service //= 'DB'; } - my %desc = Travel::Status::DE::HAFAS::get_service($service); - if (%desc) { - my @mots = @{ $desc{productbits} }; + my $desc = Travel::Status::DE::HAFAS::get_service($service); + if ($desc) { + my @mots = @{ $desc->{productbits} }; @mots = grep { $_ ne 'x' } @mots; @mots = uniq @mots; @mots = sort @mots; |