Teach the conversion script about all the nice people that offered to reduce the number of wasted bytes in the world
This commit is contained in:
parent
3915e45bda
commit
5fd42832d1
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=308955
1 changed files with 5 additions and 1 deletions
|
@ -28,6 +28,8 @@ Usage: $bn [OPTION] PORT
|
|||
_ENOUSAGE
|
||||
}
|
||||
|
||||
my $nicepeople=".*(avilla@|bapt@|bdrewery@|beat@|eadler@|flo@|flz@|garga@|bsdkaffee@|linimon@|makc@|araujo@|rm@|villa.alberto@).*";
|
||||
|
||||
sub get_creator($) {
|
||||
my $header=shift;
|
||||
my $creator;
|
||||
|
@ -99,7 +101,9 @@ MAIN: {
|
|||
my $creator=get_creator(\@header);
|
||||
my $mcom=get_mcom(\@header);
|
||||
if(defined($creator)) {
|
||||
print $outh "# Created by: $creator\n";
|
||||
if ($creator!~m"$nicepeople"i) {
|
||||
print $outh "# Created by: $creator\n";
|
||||
}
|
||||
} else {
|
||||
print STDERR "$mf creator not found. Reverting to RCS string only.\n";
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue