From 7dbd5108f5aa528e7807af3daafdd7dfb07ac4fb Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sun, 25 Aug 2024 09:51:39 +0200 Subject: -m: allow specifying mot bits directly --- lib/Travel/Status/DE/HAFAS.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib/Travel/Status/DE/HAFAS.pm') diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 57ec624..316d583 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -376,6 +376,9 @@ sub mot_mask { if ( exists $mot_pos{$mot} ) { $mot_mask |= 1 << $mot_pos{$mot}; } + elsif ( $mot =~ m{ ^ \d+ $ }x ) { + $mot_mask |= 1 << $mot; + } } } @@ -384,6 +387,9 @@ sub mot_mask { if ( exists $mot_pos{$mot} ) { $mot_mask &= ~( 1 << $mot_pos{$mot} ); } + elsif ( $mot =~ m{ ^ \d+ $ }x ) { + $mot_mask &= ~( 1 << $mot ); + } } } -- cgit v1.2.3