Scripts: update from core.git

This commit is contained in:
Franco Fichtner 2022-10-18 14:22:50 +02:00
parent 76dc5e9b59
commit 7f918905ad

View File

@ -84,7 +84,7 @@ sub process_file
for my $line ( @lines ) {
my $copy = $line;
next if $line !~ s/copyright\s+\(c\)\s+//i;
$line =~ s/^[."\*\\#\s]+//g;
$line =~ s/^[."\*\\#\s-]+//g;
$line =~ s/\s+$//g;
chomp $copy;
$copy =~ s/^[\*\\#\s]+//g;
@ -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;
}