瀏覽代碼

Don't make all @comments FATAL.

Reported by:	Tatsuki Makino
jclarke 3 年之前
父節點
當前提交
984e554030
共有 1 個文件被更改,包括 1 次插入3 次删除
  1. 1 3
      portlint.pl

+ 1 - 3
portlint.pl

@@ -588,7 +588,6 @@ sub checkdescr {
 sub checkplist {
 	my($file) = @_;
 	my($curdir) = ($localbase);
-	my($rcsidseen) = (0);
 
 	my $seen_special = 0;
 	my $item_count = 0;
@@ -726,8 +725,7 @@ sub checkplist {
 						"for more details).");
 				}
 			} elsif ($_ =~ /^\@(comment)/) {
-				$rcsidseen++ if (/\$$rcsidstr[:\$]/);
-				&perror("FATAL", $file, $., "\$$rcsidstr\$ is deprecated in Git.");
+				&perror("FATAL", $file, $., "\$$rcsidstr\$ is deprecated in Git.") if (/\$$rcsidstr[:\$]/);
 			} elsif ($_ =~ m!^\@(dirrm|dirrmtry)\s+/!) {
 				&perror("WARN", $file, $., "Using \@$1 with absolute path ".
 					"will not work as you expected in most cases.  Use ".