From cfb8730aa3e416d30928ba3a716983852d78ae39 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sat, 15 Nov 2025 18:34:15 +0100 Subject: Group: perl treats 0-prefixed numbers as octal. 09 is not valid octal. --- lib/Travel/Status/DE/DBRIS/Formation/Group.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Travel/Status/DE/DBRIS/Formation/Group.pm b/lib/Travel/Status/DE/DBRIS/Formation/Group.pm index 85dc4c2..96af59f 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation/Group.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation/Group.pm @@ -492,7 +492,7 @@ sub parse_model { if ( $carriage->model == 023 ) { $ml{'023'}++; } - elsif ($carriage->model == 091 + elsif ($carriage->model == 91 or $carriage->model == 491 or $carriage->model == 791 or $carriage->model == 891 ) -- cgit v1.2.3