This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid including things that aren't directories in inc_version_list
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 22 Mar 2000 17:04:01 +0000 (17:04 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 22 Mar 2000 17:04:01 +0000 (17:04 +0000)
(from Robin Barker)

p4raw-id: //depot/perl@5881

Configure

index 46429ce..f530921 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -5546,10 +5546,10 @@ else {
 foreach $d (@candidates) {
     if ($d lt $version) {
        if ($d ge $api_versionstring) {
-           unshift(@inc_version_list, "$d/$archname", $d);
+           unshift(@inc_version_list, grep { -d } "$d/$archname", $d);
        }
        elsif ($d ge "5.005") {
-           unshift(@inc_version_list, $d);
+           unshift(@inc_version_list, grep { -d } $d);
        }
     }
     else {