|
@@ -142,11 +142,6 @@ sub check_comments {
|
|
|
* The library is free for all purposes without any express
|
|
* The library is free for all purposes without any express
|
|
|
* guarantee it works.
|
|
* guarantee it works.
|
|
|
*/
|
|
*/
|
|
|
-MARKER
|
|
|
|
|
- my $last_comment = <<'MARKER';
|
|
|
|
|
-/* ref: $Format:%D$ */
|
|
|
|
|
-/* git commit: $Format:%H$ */
|
|
|
|
|
-/* commit time: $Format:%ai$ */
|
|
|
|
|
MARKER
|
|
MARKER
|
|
|
my @all_files;
|
|
my @all_files;
|
|
|
find({ wanted=> sub { push @all_files, $_ if $_ =~ /\.(c|h)$/ }, no_chdir=>1 }, 'demos', 'src', 'tests');
|
|
find({ wanted=> sub { push @all_files, $_ if $_ =~ /\.(c|h)$/ }, no_chdir=>1 }, 'demos', 'src', 'tests');
|
|
@@ -156,10 +151,6 @@ MARKER
|
|
|
warn "[first_comment] $f\n";
|
|
warn "[first_comment] $f\n";
|
|
|
$fails++;
|
|
$fails++;
|
|
|
}
|
|
}
|
|
|
- if ($txt !~ /\Q$last_comment\E\s*$/s) {
|
|
|
|
|
- warn "[last_comment] $f\n";
|
|
|
|
|
- $fails++;
|
|
|
|
|
- }
|
|
|
|
|
}
|
|
}
|
|
|
warn( $fails > 0 ? "check-comments: FAIL $fails\n" : "check-comments: PASS\n" );
|
|
warn( $fails > 0 ? "check-comments: FAIL $fails\n" : "check-comments: PASS\n" );
|
|
|
return $fails;
|
|
return $fails;
|