From 6be17fed8cef06acda66ff109c3a96b4de2cafa6 Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Sat, 29 Jul 2023 16:15:24 -0400
Subject: [PATCH] Don't find find2perl in local::lib root if it's not there
 #220

---
 lib/PerlPowerTools.pm | 2 +-
 t/find/find.t         | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/PerlPowerTools.pm b/lib/PerlPowerTools.pm
index cfc1960b..d387fb40 100644
--- 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
index 8bfdf4f4..6ca0536e 100644
--- 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] : ();