rx: Fix test for end of call queue for LWP
[openafs.git] / doc / man-pages / check-pod
1 #!/usr/bin/perl
2 #
3 # Written by Jason Edgecombe based on the Test::Pod documentation.  The
4 # best way to run it is to run:
5 #
6 #     prove check-pod
7 #
8 # from the doc/man-pages directory, which will show any errors found in
9 # any of the POD files.
10 #
11 # Extended by Davor Ocelic to support explicit list of POD files or
12 # sections to check:
13 #
14 #     check-pod pod1/fs.pod
15 #     check-pod pod5
16 #     check-pod pod1 pod8/volserver.pod
17 #
18
19 use strict;
20 use Test::More;
21 eval "use Test::Pod 1.00";
22
23 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
24 my @poddirs = qw( pod1 pod3 pod5 pod8 );
25
26 my @list;
27 for ( @ARGV ? @ARGV : @poddirs ) {
28         if ( -f ) {
29                 push @list, $_
30         } elsif ( -d ) {
31                 push @list, grep { !m,fragments/, } all_pod_files( $_ )
32         }
33 }
34
35 all_pod_files_ok( @list );