From: Craig A. Berry Date: Wed, 3 Oct 2001 17:45:25 +0000 (-0500) Subject: 2 more VMS test tweaks X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b907316ce9a27a760590c1349443905f1afc6f2;p=p5sagit%2Fp5-mst-13.2.git 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 4c1ee08..3a25bff 100644 --- 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/; } }