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;