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