Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adjust detection of trailing dots to the recent changes of not having

Browse Source 
a terminating \n in the copyright list.
This commit is contained in:
martin 2008-05-20 21:18:28 +00:00
parent 4f5b67aed7
commit 5140282530
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
distrib/notes/common/extract-contrib-string.pl
View File

@ -190,11 +190,11 @@ while(<>) {
# Figure out if there's a version w/ or w/o trailing dot # Figure out if there's a version w/ or w/o trailing dot
# #
if ($msg =~ /\.\n$/) { if ($msg =~ /\.$/) {
# check if there's a version of the same msg # check if there's a version of the same msg
# w/ a trailing dot # w/o a trailing dot
$msg2=$msg; $msg2=$msg;
$msg2=~s,\.\n$,\n,; $msg2=~s,\.$,,;
if ($copyrights{"$msg2"}) { if ($copyrights{"$msg2"}) {
# already there - skip # already there - skip
print "already there, w/o dot - skipping!\n" print "already there, w/o dot - skipping!\n"
@ -211,10 +211,9 @@ while(<>) {
} }
} else { } else {
# check if there's a version of the same msg # check if there's a version of the same msg
# w/o the trailing dot # with a trailing dot
$msg2=$msg; $msg2=$msg;
chomp($msg2); $msg2.=".";
$msg2.=".\n";
if ($copyrights{"$msg2"}) { if ($copyrights{"$msg2"}) {
# already there - skip # already there - skip
print "already there, w/ dot - skipping!\n" print "already there, w/ dot - skipping!\n"