diff options
Diffstat (limited to 'doc/refcheck.pl')
-rwxr-xr-x | doc/refcheck.pl | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/doc/refcheck.pl b/doc/refcheck.pl deleted file mode 100755 index 1ed3a65d07f0..000000000000 --- a/doc/refcheck.pl +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -my @files = @ARGV; - -my $h; - -foreach my $file (@files) { - $h->{$file} = 1; -} - -foreach my $file (@files) { - open(my $fh, "<", $file) or die "cannot open < $file: $!"; - while (<$fh>) { - chomp; - if ($_ =~ /\.Xr ((ck|CK)_[a-zA-Z_]+) ([0-9])/) { - my $name = $1; - my $section = $3; - if (!$h->{$name}) { - print STDERR "$file: ref to missing ${name}($section)\n"; - } - } - } - close($fh) or die("cannot close $file: $!"); -} |