From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 6 Jul 2003 07:44:57 +0000 (+0000)
Subject: The change #20022 didn't work for Command.t.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1101dd3c4aa16f80d07586a75b258923c73a076;p=p5sagit%2Fp5-mst-13.2.git

The change #20022 didn't work for Command.t.
p4raw-link: @20022 on //depot/perl: e3aa3ecb42b463895ffaa6cde935424bd94bff85

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

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/;