diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-11-15 18:34:15 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-11-15 18:34:15 +0100 |
| commit | cfb8730aa3e416d30928ba3a716983852d78ae39 (patch) | |
| tree | 2693f0750e3ac9af5c30408da3f54a22fdb18112 | |
| parent | b064ef7ddbf20eeabc029ae7b2ce2bede064c48b (diff) | |
Group: perl treats 0-prefixed numbers as octal. 09 is not valid octal.
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation/Group.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 ) |