Handle multi-line "written by/for" comments.
[openssl.git] / util / copyright.pl
index bdaa9c1..4367f15 100644 (file)
@@ -30,7 +30,14 @@ sub check_comment()
         }
     }
 
+    # Look for a multi-line "written by" comment.
+    if ( ! $skipit ) {
+        my $text = join('', @lines);
+        $skipit = 1 if $text =~ m/Written by.*for the OpenSSL Project/is;
+    }
+
     print @lines unless $skipit;
+    return $skipit;
 }
 
 # Look for leading copyright blocks and process (print/swallow) them.
@@ -61,7 +68,7 @@ EOF
     }
     next if m@^$@;
     last if not m@/\*@;
-    &check_comment($_);
+    last unless &check_comment($_);
 }
 
 if (defined($_)) {