lib/ExtUtils/t/Constant.t on VMS

From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020516140747.03562438@exchi01>

p4raw-id: //depot/perl@16636

diff --git a/lib/ExtUtils/t/Constant.t b/lib/ExtUtils/t/Constant.t
index 34f9414..7a91477 100644 (file)
--- a/lib/ExtUtils/t/Constant.t
+++ b/lib/ExtUtils/t/Constant.t
@@ -648,11 +648,12 @@ $test++;
 
 sub check_for_bonus_files {
   my $dir = shift;
-  my %expect = map {$_, 1} @_;
+  my %expect = map {($^O eq 'VMS' ? lc($_) : $_), 1} @_;
 
   my $fail;
   opendir DIR, $dir or die "opendir '$dir': $!";
   while (defined (my $entry = readdir DIR)) {
+    $entry =~ s/\.$// if $^O eq 'VMS';  # delete trailing dot that indicates no extension
     next if $expect{$entry};
     print "# Extra file '$entry'\n";
     $fail = 1;