Eliminate errors for directories that don't exist

If one of the reported search paths doesn't exist, don't call `find` to search it.
clearlinux · Aug 11, 2023 · e4e0905 · e4e0905
1 parent a9a7297
commit e4e0905
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/clr-check-perl-modules.pl b/src/clr-check-perl-modules.pl
@@ -43,7 +43,10 @@
 my %results;
 # Scan longest stems first
 my @basedirs = sort { length($b) <=> length($a) } keys %patterns;
+BASEDIR:
 foreach my $basedir (@basedirs) {
+	# Skip ahead if this directory doesn't exist
+	next BASEDIR unless -d $basedir;
 	foreach my $pattern (sort { length($b) <=> length($a) }
 		keys %{$patterns{$basedir}}) {
 		open(my $fh, "-|", "find ${basedir} -type d")