|
@@ -20,5 +20,13 @@ use Test::More;
|
|
|
|
|
|
|
|
eval 'use Test::Pod 1.00';
|
|
eval 'use Test::Pod 1.00';
|
|
|
plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
|
|
plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
|
|
|
-my @poddirs = ( $ENV{srcdir} || '.' );
|
|
|
|
|
-all_pod_files_ok( all_pod_files( @poddirs ) );
|
|
|
|
|
|
|
+
|
|
|
|
|
+if (defined $ENV{srcdir}) {
|
|
|
|
|
+ chdir $ENV{srcdir} or die "cannot chdir to source directory: $!";
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
|
|
+my @dirs = qw(scripts/Dpkg);
|
|
|
|
|
+my @files = qw(scripts/Dpkg.pm);
|
|
|
|
|
+push @files, all_pod_files(@dirs);
|
|
|
|
|
+
|
|
|
|
|
+all_pod_files_ok(@files);
|