2 more VMS test tweaks

Message-Id: <5.1.0.14.0.20011003154131.01bc8528@exchi01>

(the lib/Term/Complete.t patched differently by #12332)

p4raw-id: //depot/perl@12333

diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t
index 4c1ee08090cef17381fef329380450326968a72b..3a25bffe4bb1be182ea0d27622f6c4a7f303fa22 100644 (file)
--- a/lib/ExtUtils/Command.t
+++ b/lib/ExtUtils/Command.t
@@ -31,6 +31,7 @@ BEGIN {
                local *DIR;
                opendir(DIR, File::Spec->curdir());
                while ($file = readdir(DIR)) {
+                       $file =~ s/\.\z// if $^O eq 'VMS';
                        last if $file =~ /^\w/;
                }
        }