diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2020-12-14 19:16:07 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2020-12-14 19:16:07 +0100 |
| commit | 60f310abd8f8363d2246ab7c9f61c2cbb84b709a (patch) | |
| tree | 69df616af261d35ed9b727db4d79fc4844bed392 | |
| parent | 4ce655c307650b36a6b041690557a517a3e0b04f (diff) | |
more wagons
| -rwxr-xr-x | bin/db-wagenreihung-to-json | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/db-wagenreihung-to-json b/bin/db-wagenreihung-to-json index 00f9518..28eade5 100755 --- a/bin/db-wagenreihung-to-json +++ b/bin/db-wagenreihung-to-json @@ -333,7 +333,7 @@ for my $line (@lines) { if ( $number and $line - =~ m{ ^ \d* \s{1,10} (?<type> D? (WL)? (A|AB|B|W) R? D? [aceimpvw] \S* ) \s* (?<number> \d+ )? (?: $ | \s{6} ) }x + =~ m{ ^ \d* \s{1,10} (?<type> D? (WL)? (A|AB|B|W) R? D? [aceimpvw] \S* ) \s* (?<number> \d+ )? (?: $ | \s{3} ) }x ) { $state = "wagonorder"; |