From 28b6a6073c5db5b1818bbd7f98a2638af2383cbe Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 15 Feb 2006 13:22:27 +0000
Subject: Fix to run this test in the core

p4raw-id: //depot/perl@27193
---
 lib/CPAN/t/03pkgs.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/CPAN')

diff --git a/lib/CPAN/t/03pkgs.t b/lib/CPAN/t/03pkgs.t
index d6fa715642..aad03c6309 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);
 }
 
-- 
cgit v1.2.1