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.

Author: bwarden

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")