projects
/
git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Merge branch 'zh/ref-filter-atom-type'
[git]
/
Documentation
/
lint-man-end-blurb.perl
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
my $exit_code = 0;
7
sub report {
8
my ($target, $msg) = @_;
9
print "error: $target: $msg\n";
10
$exit_code = 1;
11
}
12
13
local $/;
14
while (my $slurp = <>) {
15
report($ARGV, "has no 'Part of the linkgit:git[1] suite' end blurb")
16
unless $slurp =~ m[
17
^GIT\n
18
---\n
19
\QPart of the linkgit:git[1] suite\E \n
20
\z
21
]mx;
22
}
23
24
exit $exit_code;