Fix to run this test in the core

p4raw-id: //depot/perl@27193

diff --git a/lib/CPAN/t/03pkgs.t b/lib/CPAN/t/03pkgs.t
index d6fa715..aad03c6 100644 (file)
--- a/lib/CPAN/t/03pkgs.t
+++ b/lib/CPAN/t/03pkgs.t
@@ -3,11 +3,11 @@
 use strict;
 eval 'use warnings';
 
-opendir DH, "lib/CPAN" or die;
 my @m;
 if ($ENV{PERL_CORE}){
   @m = ("CPAN", map { "CPAN::$_" } qw(Debug FirstTime Nox Tarzip Version));
 } else {
+  opendir DH, "lib/CPAN" or die;
   @m = ("CPAN", map { "CPAN::$_" } grep { s/\.pm$// } readdir DH);
 }