eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
-my @poddirs = qw( pod1 pod5 pod8 );
+my @poddirs = qw( pod1 pod3 pod5 pod8 );
my @list;
for ( @ARGV ? @ARGV : @poddirs ) {
if ( -f ) {
push @list, $_
} elsif ( -d ) {
- push @list, all_pod_files( $_ )
+ push @list, grep { !m,fragments/, } all_pod_files( $_ )
}
}