Change 19822: This change chunk doesn't work well with blead.

[Jarkko Hietaniemi]

Change 19822 by [EMAIL PROTECTED] on 2003/06/19 14:49:37

        This change chunk doesn't work well with blead.

Affected files ...

... //depot/perl/lib/ExtUtils/t/Command.t#12 edit

Differences ...

==== //depot/perl/lib/ExtUtils/t/Command.t#12 (text) ====
Index: perl/lib/ExtUtils/t/Command.t
--- perl/lib/ExtUtils/t/Command.t#11~19820~     Thu Jun 19 07:25:53 2003
+++ perl/lib/ExtUtils/t/Command.t       Thu Jun 19 07:49:37 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.