]>
Commit | Line | Data |
---|---|---|
cafd9828 ÆAB |
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; |