LICENSE: adjust script to properly read man pages

This commit is contained in:
Franco Fichtner 2018-05-19 17:32:48 +02:00
parent e38d58ae88
commit 8ff6b2ba31

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;
$line =~ s/Inc$/Inc./;
$line =~ s/B\.V$/B.V./;