diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-03-22 09:47:38 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-22 20:52:18 +0000 |
| commit | 7ce7e5619c47b146f883edf80e4f0a5c958ca618 (patch) | |
| tree | 4f471733ed564fb58653e69faa757949fe0414c3 | |
| parent | a7310926cdeb1e215511d5c3262e0c5ace571c62 (diff) | |
| download | perl-7ce7e5619c47b146f883edf80e4f0a5c958ca618.tar.gz | |
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
| -rw-r--r-- | lib/h2xs.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/h2xs.t b/lib/h2xs.t index 53739b2baf..5acc0b2c21 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; |