some people have broken systems that have perl but not perldoc, make …

…the tests work for them

CHANGELOG

@@ -1,3 +1,5 @@
+3.01    2020-10-27      Patch for broken systems that don't have perldoc
+
 3.00    2020-10-27      configure_requires is now on by default (and can't be
                           switched off either);
                         Support multiple CPAN mirrors;

lib/CPAN/FindDependencies.pm

@@ -21,7 +21,7 @@ require Exporter;
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(finddeps);
 
-$VERSION = '3.00';
+$VERSION = '3.01';
 
 use constant MAXINT => ~0;
 

lib/CPAN/FindDependencies/Dependency.pm

@@ -7,7 +7,7 @@ use warnings;
 
 use vars qw($VERSION);
 
-$VERSION = '3.00';
+$VERSION = '3.01';
 
 =head1 NAME
 

t/cpandeps-diff-script.t

@@ -20,6 +20,9 @@ END {
 SKIP: {
     skip "Windows is just weird", 1
         if(Devel::CheckOS::os_is('MicrosoftWindows'));
+    my($stdout, $stderr) = capture { system( qw(perldoc foo) ) };
+    skip "Your perl is broken. $stderr", 1
+        if($stderr =~ /You need to install the perl-doc package to use this program/);
 
 my @default_cmd = (
     $Config{perlpath}, (map { "-I$_" } (@INC)),
@@ -29,7 +32,7 @@ my @default_cmd = (
 
 my @mirror = qw(mirror t/mirrors/privatemirror);
 
-my($stdout, $stderr) = capture { system( @default_cmd, 'help') };
+($stdout, $stderr) = capture { system( @default_cmd, 'help') };
 like($stdout, qr/cpandeps-diff add Some::Module/, "Can spew out some help");
 
 ($stdout, $stderr) = capture { system( @default_cmd, 'list') };

t/cpandeps-script.t

@@ -6,7 +6,6 @@ use CPAN::FindDependencies qw(finddeps);
 
 use Test::More;
 use Test::Differences;
-plan tests => 6;
 
 use Devel::CheckOS;
 use Capture::Tiny qw(capture);
@@ -35,10 +34,13 @@ use Config;
 }
 
 SKIP: {
-    skip "Script works but tests don't on Windows.  Dunno why.", 5
+    skip "Script works but tests don't on Windows.  Dunno why.", 1
         if(Devel::CheckOS::os_is('MicrosoftWindows'));
+    my($stdout, $stderr) = capture { system( qw(perldoc foo) ) };
+    skip "Your perl is broken. $stderr", 1
+        if($stderr =~ /You need to install the perl-doc package to use this program/);
 
-my($stdout, $stderr) = capture { system(
+($stdout, $stderr) = capture { system(
     $Config{perlpath}, (map { "-I$_" } (@INC)),
     qw(
         blib/script/cpandeps
@@ -101,3 +103,5 @@ eq_or_diff($stdout, 'CPAN::FindDependencies (dist: D/DC/DCANTRELL/CPAN-FindDepen
 ', "got CPAN::FindDependencies right");
 
 };
+
+done_testing;