The change #20022 didn't work for Command.t.

p4raw-link: @20022 on //depot/perl: e3aa3ecb42b463895ffaa6cde935424bd94bff85

p4raw-id: //depot/perl@20024

1 files changed, 2 insertions, 5 deletions

diff --git a/lib/ExtUtils/t/Command.t b/lib/ExtUtils/t/Command.t
index 4e54189b90..7f1a97c726 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/;