2 more VMS test tweaks
Craig A. Berry [Wed, 3 Oct 2001 17:45:25 +0000 (12:45 -0500)]
Message-Id: <5.1.0.14.0.20011003154131.01bc8528@exchi01>

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

p4raw-id: //depot/perl@12333

lib/ExtUtils/Command.t

index 4c1ee08..3a25bff 100644 (file)
@@ -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/;
                }
        }