Fix to run this test in the core
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 15 Feb 2006 13:22:27 +0000 (13:22 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 15 Feb 2006 13:22:27 +0000 (13:22 +0000)
p4raw-id: //depot/perl@27193

lib/CPAN/t/03pkgs.t

index d6fa715..aad03c6 100644 (file)
@@ -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);
 }