Change 20024 by [EMAIL PROTECTED] on 2003/07/06 07:44:57
The change #20022 didn't work for Command.t.
Affected files ...
... //depot/perl/lib/ExtUtils/t/Command.t#14 edit
Differences ...
==== //depot/perl/lib/ExtUtils/t/Command.t#14 (text) ====
Index: perl/lib/ExtUtils/t/Command.t
--- perl/lib/ExtUtils/t/Command.t#13~20022~ Sun Jul 6 00:26:52 2003
+++ perl/lib/ExtUtils/t/Command.t Sun Jul 6 00:44:57 2003
@@ -31,14 +31,11 @@
}
{
- # 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/;
End of Patch.
