From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 15 Feb 2006 13:22:27 +0000 (+0000)
Subject: Fix to run this test in the core
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28b6a6073c5db5b1818bbd7f98a2638af2383cbe;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
 }