bring MM_VMS::perldepend into 21st century

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / Command.t

diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t
index 4c1ee08..3a25bff 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/;
                }
        }