1 files changed, 42 insertions, 0 deletions
diff --git a/util/doc-nit-check.pl b/util/doc-nit-check.pl
new file mode 100644
index 0000000000..f1a7af85ec
--- /dev/null
+++ b/util/doc-nit-check.pl
@@ -0,0 +1,42 @@
+#! /usr/bin/env perl
+
+require 5.10.0;
+use warnings;
+use strict;
+use Pod::Checker;
+use File::Find;
+
+sub check()
+{
+    my $errs = 0;
+    
+    my $contents = '';
+    {
+        local $/ = undef;
+        open POD, $_ or die "Couldn't open $_, $!";
+        $contents = <POD>;
+        close POD;
+    }
+    if ( $contents !~ /^=pod/ ) {
+        print "$_ doesn't start with =pod\n";
+        return 1;
+    }
+    if ( $contents !~ /=cut\n$/ ) {
+        print "$_ doesn't end with =cut\n";
+        return 1;
+    }
+    if ( $contents !~ /Copyright .* The OpenSSL Project Authors/ ) {
+        print "$_ missing copyright\n";
+        return 1;
+    }
+
+    $errs = podchecker($_, \*STDOUT);
+    $errs = 1 if $errs < 0;
+    return $errs;
+}
+
+my $errs = 0;
+foreach (glob('*/*.pod')) {
+    $errs += &check($_);
+}
+exit $errs;