|
@@ -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 ".
|