From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 22 Mar 2002 15:47:38 +0000 (-0600)
Subject: h2xs.t fix for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ce7e5619c47b146f883edf80e4f0a5c958ca618;p=p5sagit%2Fp5-mst-13.2.git

h2xs.t fix for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020322154432.01ad4930@exchi01>

p4raw-id: //depot/perl@15429
---

diff --git a/lib/h2xs.t b/lib/h2xs.t
index 53739b2..5acc0b2 100644
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -176,6 +176,10 @@ while (my ($args, $version, $expectation) = splice @tests, 0, 3) {
       $_ = ':' . join(':',split(/\//,$_));
       $_ =~ s/$name:t:1.t/$name:t\/1.t/; # is this an h2xs bug?
     }
+    if ($^O eq 'VMS') {
+      $_ .= '.' unless $_ =~ m/\./;
+      $_ = lc($_) unless exists $got{$_};
+    }
     ok (-e $_, "check for $_") and delete $got{$_};
   }
   my @extra = keys %got;