Don't find find2perl in local::lib root if it's not there #220

briandfoy · Jul 29, 2023 · 6be17fe · 6be17fe
1 parent eed597c
commit 6be17fe
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/lib/PerlPowerTools.pm b/lib/PerlPowerTools.pm
@@ -1,6 +1,6 @@
 package PerlPowerTools;
 
-our $VERSION = '1.036_001';
+our $VERSION = '1.036_002';
 
 1;
 

diff --git a/t/find/find.t b/t/find/find.t
@@ -31,7 +31,6 @@ HERE
 
 diag( "find2perl is at <$find2perl>" );
 
-
 subtest check_find2perl => \&check_find, "find2perl", $find2perl;
 subtest check_find      => \&check_find, "find", $find;
 
@@ -93,7 +92,7 @@ sub find_find2perl {
 			split( /$Config{path_sep}/, $ENV{PATH} ),
 			;
 
-	push @candidates, catfile( $ENV{PERL_LOCAL_LIB_ROOT}, 'bin', 'find2perl' )
+	push @candidates, grep { -e } ( catfile( $ENV{PERL_LOCAL_LIB_ROOT}, 'bin', 'find2perl' ) )
 		if defined $ENV{PERL_LOCAL_LIB_ROOT};
 
 	return defined $candidates[0] ? $candidates[0] : ();