repo.or.cz
/
alt-git.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge branch 'jk/test-pass-ubsan-options-to-http-test' into maint-2.42
[alt-git.git]
/
Documentation
/
lint-man-end-blurb.perl
blob
6bdb13ad9fdb36b8c8f5244fa66fb29c0f619cc7
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
STDERR
"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
;