mirror of
https://github.com/git/git
synced 2024-08-27 11:39:22 +00:00
25 lines
373 B
Plaintext
25 lines
373 B
Plaintext
![]() |
#!/usr/bin/perl
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
|
my $exit_code = 0;
|
||
|
sub report {
|
||
|
my ($target, $msg) = @_;
|
||
|
print "error: $target: $msg\n";
|
||
|
$exit_code = 1;
|
||
|
}
|
||
|
|
||
|
local $/;
|
||
|
while (my $slurp = <>) {
|
||
|
report($ARGV, "has no 'Part of the linkgit:git[1] suite' end blurb")
|
||
|
unless $slurp =~ m[
|
||
|
^GIT\n
|
||
|
---\n
|
||
|
\QPart of the linkgit:git[1] suite\E \n
|
||
|
\z
|
||
|
]mx;
|
||
|
}
|
||
|
|
||
|
exit $exit_code;
|