Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package ExtUtils::MakeMaker::vmsish; |
2 | ||
3 | use vars qw($VERSION); | |
4 | $VERSION = 0.01; | |
5 | ||
6 | my $IsVMS = $^O eq 'VMS'; | |
7 | ||
8 | require vmsish if $IsVMS; | |
9 | ||
10 | ||
11 | sub import { | |
12 | return unless $IsVMS; | |
13 | ||
14 | shift; | |
15 | unshift @_, 'vmsish'; | |
16 | ||
17 | goto &vmsish::import; | |
18 | } | |
19 | ||
20 | 1; | |
21 | ||
22 | ||
23 | =head1 NAME | |
24 | ||
25 | ExtUtils::MakeMaker::vmsish - Platform-agnostic vmsish.pm | |
26 | ||
27 | =head1 SYNOPSIS | |
28 | ||
29 | use just like vmsish.pm | |
30 | ||
31 | =head1 DESCRIPTION | |
32 | ||
33 | Until 5.8.0, vmsish.pm is only installed on VMS. This means any code | |
34 | which has 'use vmsish' in it won't even compile outside VMS. This | |
35 | makes ExtUtils::MM_VMS very hard to test. | |
36 | ||
37 | ExtUtils::MakeMaker::vmsish is just a very thin wrapper around vmsish | |
38 | which works just like it on VMS and everywhere else it does nothing. | |
39 | ||
40 | =cut |