From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 16 May 2002 14:13:15 +0000 (-0500)
Subject: lib/ExtUtils/t/Constant.t on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=67dff657d642f6152f58b7b64eb00796f9bda151;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;