Scripts: improve license parsing for odd names

This commit is contained in:
Franco Fichtner 2022-10-18 14:19:26 +02:00
parent fcbf3b15d8
commit fcbceadb76

View File

@ -93,7 +93,7 @@ sub process_file
$start = $1;
$start =~ s/[,\s\-]+//g;
}
if ( $line =~ s/(\d\d\d\d\s*,?\s+)// ) {
if ( $line =~ s/^(\d\d\d\d\s*,?\s+)// ) {
$end = $1;
$end =~ s/[,\s]+//g;
}