зеркало из https://github.com/microsoft/git.git
25 строки
380 B
Perl
Executable File
25 строки
380 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $exit_code = 0;
|
|
sub report {
|
|
my ($target, $msg) = @_;
|
|
print STDERR "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;
|