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

Avoid an endless loop in previous, improve extraction of "known bad"

Browse Source 
UCB 3 clause licenses.
This commit is contained in:
martin 2008-05-24 19:37:29 +00:00
parent 66009f62a3
commit afdba35c96
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -145,6 +145,7 @@ while(<>) {
print "2> $_" if $debug;
$msg="";
$msg = $_ if ($fn =~ m,$known_bad_clause_3_wording, and /``/);
$cnt=0;
$_=<F>;
while(!/$ack_endline/i) {
@ -166,8 +167,10 @@ while(<>) {
if ($fn =~ m,$known_bad_clause_3_wording,) {
while ($msg !~ /^.*``.*\n/) {
last if (!$msg);
$msg =~ s/^.*\n//o;
}
$msg =~ s/^.*``//o;
$msg =~ s/\n.*``//o;
$msg =~ s/''.*$//o;
}