[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / MakeMaker / vmsish.pm

package ExtUtils::MakeMaker::vmsish;

use strict;

use vars qw($VERSION);
$VERSION = 6.42;

my $IsVMS = $^O eq 'VMS';

require vmsish if $IsVMS;


sub import {
    return unless $IsVMS;

    shift;
    unshift @_, 'vmsish';

    goto &vmsish::import;
}

1;


=head1 NAME

ExtUtils::MakeMaker::vmsish - Platform-agnostic vmsish.pm

=head1 SYNOPSIS

  use just like vmsish.pm

=head1 DESCRIPTION

Until 5.8.0, vmsish.pm is only installed on VMS.  This means any code
which has 'use vmsish' in it won't even compile outside VMS.  This
makes ExtUtils::MM_VMS very hard to test.

ExtUtils::MakeMaker::vmsish is just a very thin wrapper around vmsish
which works just like it on VMS and everywhere else it does nothing.

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