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;
|