--- portlint	2021-05-01 03:03:59.828368000 +0000
+++ portlint	2021-05-01 03:12:00.416951000 +0000
@@ -1445,8 +1445,8 @@ 
 		&perror("FATAL", $file, 1, "old style headers found.");
 	} elsif ($lines[1] =~ /^# Created by: \S/) {
 		if ($lines[2] !~ /^# \$$rcsidstr[:\$]/) {
-			&perror("FATAL", $file, 2, "header should be ".
-				"followed by \$$rcsidstr\$.");
+			#&perror("FATAL", $file, 2, "header should be ".
+			#	"followed by \$$rcsidstr\$.");
 		} elsif ($lines[3] !~ /^$/) {
 		#&perror("FATAL", $file, 3, "do not add extra ".
 		#		"empty comments after header.");
@@ -1455,8 +1455,8 @@ 
 	} elsif ($lines[1] =~ /^# \$$rcsidstr[:\$]/ and $lines[2] =~ /^#\s+\$MCom[:\$]/ and $lines[3] =~ /^$/) {
         # DO NOTHING
 	} elsif ($lines[1] !~ /^# \$$rcsidstr[:\$]/ or $lines[2] !~ /^$/) {
-		&perror("FATAL", $file, 1, "incorrect header; ".
-			"simply use \$$rcsidstr\$.");
+		#&perror("FATAL", $file, 1, "incorrect header; ".
+		#	"simply use \$$rcsidstr\$.");
 	}
 
 	#
@@ -2666,12 +2666,15 @@ 
 		}
 	}
 	$idx = 0;
+	my @linestocheck = ();
 
+	# check if all lines in the first section are all comments
+	if (grep(/^#/, split(/\n/, $sections[$idx])) == split(/\n/, $sections[$idx])) {
 	#
 	# section 1: comment lines.
 	#
 	print "OK: checking comment section of $file.\n" if ($verbose);
-	my @linestocheck = split("\n", <<EOF);
+	@linestocheck = split("\n", <<EOF);
 Whom
 Date [cC]reated
 EOF
@@ -2691,8 +2694,8 @@ 
 	}
 	if ($tmp2 !~ /#(\s+)\$$rcsidstr([^\$]*)\$$/) {
 
-		&perror("FATAL", $file, -1, "no \$$rcsidstr\$ line in comment ".
-			"section.");
+		#&perror("FATAL", $file, -1, "no \$$rcsidstr\$ line in comment ".
+		#	"section.");
 	} else {
 		print "OK: \$$rcsidstr\$ seen in $file.\n" if ($verbose);
 		if ($1 ne ' ') {
@@ -2708,6 +2711,7 @@ 
 				    "section empty, to make SVN happy.");
 			}
 		}
+	}
 	}
 
 	#