This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Configure might miss old directories when prefix must be
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 06:21:58 +0000 (06:21 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 24 Apr 2000 06:21:58 +0000 (06:21 +0000)
expanded (from Robin Barker)

p4raw-id: //depot/perl@5919

Configure

index ddec97c..2864e96 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -5521,13 +5521,12 @@ $cat > getverlist <<EOPL
 use File::Basename;
 \$api_versionstring = "$api_versionstring";
 \$version = "$version";
 use File::Basename;
 \$api_versionstring = "$api_versionstring";
 \$version = "$version";
-\$sitelib = "$sitelib";
+\$stem = "$sitelib_stem";
 \$archname = "$archname";
 EOPL
        $cat >> getverlist <<'EOPL'
 # Can't have leading @ because metaconfig interprets it as a command!
 ;@inc_version_list=();
 \$archname = "$archname";
 EOPL
        $cat >> getverlist <<'EOPL'
 # Can't have leading @ because metaconfig interprets it as a command!
 ;@inc_version_list=();
-$stem=dirname($sitelib);
 # XXX Redo to do opendir/readdir? 
 if (-d $stem) {
     chdir($stem);
 # XXX Redo to do opendir/readdir? 
 if (-d $stem) {
     chdir($stem);