Scripts: update from core.git

Scripts/license

@@ -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;
         }