diff options
Diffstat (limited to 'lib/ExtUtils/Command.t')
| -rw-r--r-- | lib/ExtUtils/Command.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t index 4c1ee08090..3a25bffe4b 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/; } } |