This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Changes to CPANPLUS and CPANPLUS::Dist::Build tests
authorChris Williams <chris@bingosnet.co.uk>
Wed, 14 Apr 2010 10:44:41 +0000 (11:44 +0100)
committerChris Williams <chris@bingosnet.co.uk>
Wed, 14 Apr 2010 10:44:41 +0000 (11:44 +0100)
  Add the utils/ dir to $ENV{PATH} if running under PERL_CORE for the
  CPANPLUS/CPANPLUS-Dist-Build tests.

  Both modules' testsuites require access to the cpanp-run-perl script
  and the version in utils/ is already executable versus the version
  in cpan/CPANPLUS/bin

cpan/CPANPLUS-Dist-Build/t/inc/conf.pl
cpan/CPANPLUS/t/inc/conf.pl

index a104eb9..506b3ed 100644 (file)
@@ -29,11 +29,10 @@ BEGIN {
     
     ### add CPANPLUS' bin dir to the front of $ENV{PATH}, so that cpanp-run-perl
     ### and friends get picked up, only under PERL_CORE though.
+    $old_env_path = $ENV{PATH};
     if ( $ENV{PERL_CORE} ) {
-       $old_env_path = $ENV{PATH};
        $ENV{'PATH'}  = join $Config{'path_sep'}, 
-                    grep { defined } "$FindBin::Bin/../../CPANPLUS/bin", $ENV{'PATH'};
-
+                    grep { defined } "$FindBin::Bin/../../../utils", $ENV{'PATH'};
     }
 
     ### Fix up the path to perl, as we're about to chdir
index 4f6c3d6..ca64731 100644 (file)
@@ -30,8 +30,14 @@ BEGIN {
     ### add our own path to the front of $ENV{PATH}, so that cpanp-run-perl
     ### and friends get picked up
     $old_env_path = $ENV{PATH};
-    $ENV{'PATH'}  = join $Config{'path_sep'}, 
+    if ( $ENV{PERL_CORE} ) {
+      $ENV{'PATH'}  = join $Config{'path_sep'},
+                    grep { defined } "$FindBin::Bin/../../../utils", $ENV{'PATH'};
+    }
+    else {
+      $ENV{'PATH'}  = join $Config{'path_sep'},
                     grep { defined } "$FindBin::Bin/../bin", $ENV{'PATH'};
+    }
 
     ### Fix up the path to perl, as we're about to chdir
     ### but only under perlcore, or if the path contains delimiters,