Changeset 2593 in MondoRescue

Timestamp:

Mar 13, 2010, 10:46:03 PM (15 years ago)

Author:

Bruno Cornec

Message:

• Avoid perl warning by removing non-exitent dirs from @INC in mindi-get-perl-modules

File:

• branches/2.2.9/mindi/mindi-get-perl-modules (modified) (2 diffs)

branches/2.2.9/mindi/mindi-get-perl-modules

@@ -21 +21 @@
 
 my $require = process_file(@_);
+
+my @includes;
+
+# Remove non exiting directories from @INC
+# and thus avoid perl warnings
+#
+foreach my $d (@INC) {
+    push @includes,$d if (-d $d);
+}
 
 find(
@@ -39 +48 @@
         }
     },
-    @INC);
+    @includes);
 
 return(\%files);