From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 19 Jun 2003 14:49:37 +0000 (+0000)
Subject: This change chunk doesn't work well with blead.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=582bf10a23d83ab7f7912b7434ac27c2728bad35;p=p5sagit%2Fp5-mst-13.2.git

This change chunk doesn't work well with blead.

p4raw-id: //depot/perl@19822
---

diff --git a/lib/ExtUtils/t/Command.t b/lib/ExtUtils/t/Command.t
index 4e54189..7f1a97c 100644
--- a/lib/ExtUtils/t/Command.t
+++ b/lib/ExtUtils/t/Command.t
@@ -31,14 +31,11 @@ BEGIN {
 }
 
 {
-    # get a file in the MM test directory, replace last char with wildcard 
+    # get a file in the current directory, replace last char with wildcard 
     my $file;
     {
         local *DIR;
-        my $mmtestdir = $ENV{PERL_CORE}
-          ? File::Spec->catdir(File::Spec->updir, 'lib', 'ExtUtils', 't')
-          : File::Spec->curdir;
-        opendir(DIR, $mmtestdir);
+        opendir(DIR, File::Spec->curdir());
         while ($file = readdir(DIR)) {
             $file =~ s/\.\z// if $^O eq 'VMS';
             last if $file =~ /^\w/;