[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / t / INST_PREFIX.t

#!/usr/bin/perl -w

# Wherein we ensure the INST_* and INSTALL* variables are set correctly
# when various PREFIX variables are set.
#
# Essentially, this test is a Makefile.PL.

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't' if -d 't';
        @INC = ('../lib', 'lib');
    }
    else {
        unshift @INC, 't/lib';
    }
}

use strict;
use Test::More tests => 52;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::BFD;
use ExtUtils::MakeMaker;
use File::Spec;
use TieOut;
use Config;

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

chdir 't';

perl_lib;

$| = 1;

my $Makefile = makefile_name;
my $Curdir = File::Spec->curdir;
my $Updir  = File::Spec->updir;

ok( setup_recurs(), 'setup' );
END {
    ok( chdir File::Spec->updir );
    ok( teardown_recurs(), 'teardown' );
}

ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) ||
  diag("chdir failed: $!");

my $stdout = tie *STDOUT, 'TieOut' or die;

my $mm = WriteMakefile(
    NAME          => 'Big::Dummy',
    VERSION_FROM  => 'lib/Big/Dummy.pm',
    PREREQ_PM     => {},
    PERL_CORE     => $ENV{PERL_CORE},
);

like( $stdout->read, qr{
                        Writing\ $Makefile\ for\ Big::Liar\n
                        Big::Liar's\ vars\n
                        INST_LIB\ =\ \S+\n
                        INST_ARCHLIB\ =\ \S+\n
                        Writing\ $Makefile\ for\ Big::Dummy\n
}x );

is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );

isa_ok( $mm, 'ExtUtils::MakeMaker' );

is( $mm->{NAME}, 'Big::Dummy',  'NAME' );
is( $mm->{VERSION}, 0.01,            'VERSION' );

foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
    unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
}


my $PREFIX = File::Spec->catdir('foo', 'bar');
$mm = WriteMakefile(
    NAME          => 'Big::Dummy',
    VERSION_FROM  => 'lib/Big/Dummy.pm',
    PREREQ_PM     => {},
    PERL_CORE     => $ENV{PERL_CORE},
    PREFIX        => $PREFIX,
);
like( $stdout->read, qr{
                        Writing\ $Makefile\ for\ Big::Liar\n
                        Big::Liar's\ vars\n
                        INST_LIB\ =\ \S+\n
                        INST_ARCHLIB\ =\ \S+\n
                        Writing\ $Makefile\ for\ Big::Dummy\n
}x );
undef $stdout;
untie *STDOUT;

is( $mm->{PREFIX}, $PREFIX,   'PREFIX' );

foreach my $prefix (qw(PERLPREFIX SITEPREFIX VENDORPREFIX)) {
    is( $mm->{$prefix}, '$(PREFIX)', "\$(PREFIX) overrides $prefix" );
}

is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );

my($perl_src, $mm_perl_src);
if( $ENV{PERL_CORE} ) {
    $perl_src = File::Spec->catdir($Updir, $Updir);
    $perl_src = File::Spec->canonpath($perl_src);
    $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
}
else {
    $mm_perl_src = $mm->{PERL_SRC};
}

is( $mm_perl_src, $perl_src,     'PERL_SRC' );


# Every INSTALL* variable must start with some PREFIX.
my %Install_Vars = (
 PERL   => [qw(archlib    privlib   bin       man1dir       man3dir   script)],
 SITE   => [qw(sitearch   sitelib   sitebin   siteman1dir   siteman3dir)],
 VENDOR => [qw(vendorarch vendorlib vendorbin vendorman1dir vendorman3dir)]
);

while( my($type, $vars) = each %Install_Vars) {
    SKIP: {
        skip "VMS must expand macros in INSTALL* vars", scalar @$vars 
          if $Is_VMS;    
        skip '$Config{usevendorprefix} not set', scalar @$vars
          if $type eq 'VENDOR' and !$Config{usevendorprefix};

        foreach my $var (@$vars) {
            my $installvar = "install$var";
            my $prefix = '$('.$type.'PREFIX)';

            SKIP: {
                skip uc($installvar).' set to another INSTALL variable', 1
                  if $mm->{uc $installvar} =~ /^\$\(INSTALL.*\)$/;

                # support for man page skipping
                $prefix = 'none' if $type eq 'PERL' && 
                                    $var =~ /man/ && 
                                    !$Config{$installvar};
                like( $mm->{uc $installvar}, qr/^\Q$prefix\E/, 
                      "$prefix + $var" );
            }
        }
    }
}

# Check that when installman*dir isn't set in Config no man pages
# are generated.
{
    undef *ExtUtils::MM_Unix::Config;
    undef *ExtUtils::MM_Unix::Config_Override;
    %ExtUtils::MM_Unix::Config = %Config;
    *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;

    _set_config(installman1dir => '');
    _set_config(installman3dir => '');

    my $wibble = File::Spec->catdir(qw(wibble and such));
    my $stdout = tie *STDOUT, 'TieOut' or die;
    my $mm = WriteMakefile(
                           NAME          => 'Big::Dummy',
                           VERSION_FROM  => 'lib/Big/Dummy.pm',
                           PREREQ_PM     => {},
                           PERL_CORE     => $ENV{PERL_CORE},
                           PREFIX        => $PREFIX,
                           INSTALLMAN1DIR=> $wibble,
                          );

    is( $mm->{INSTALLMAN1DIR}, $wibble );
    is( $mm->{INSTALLMAN3DIR}, 'none'  );
}

# Check that when installvendorman*dir is set in Config it is honored
# [rt.cpan.org 2949]
{
    undef *ExtUtils::MM_Unix::Config;
    undef *ExtUtils::MM_Unix::Config_Override;
    undef *ExtUtils::MM_VMS::Config;

    %ExtUtils::MM_Unix::Config = %Config;
    *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;

    _set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
    _set_config(installvendorman3dir => '' );
    _set_config(usevendorprefix => 1 );
    _set_config(vendorprefixexp => 'something' );

    my $stdout = tie *STDOUT, 'TieOut' or die;
    my $mm = WriteMakefile(
                   NAME          => 'Big::Dummy',
                   VERSION_FROM  => 'lib/Big/Dummy.pm',
                   PREREQ_PM     => {},
                   PERL_CORE     => $ENV{PERL_CORE},

                   # In case the local installation doesn't have man pages.
                   INSTALLMAN1DIR=> 'foo/bar/baz',
                   INSTALLMAN3DIR=> 'foo/bar/baz',
                  );

    is( $mm->{INSTALLVENDORMAN1DIR}, File::Spec->catdir('foo','bar'), 
                      'installvendorman1dir (in %Config) not modified' );
    isnt( $mm->{INSTALLVENDORMAN3DIR}, '', 
                      'installvendorman3dir (not in %Config) set'  );
}

# Check that when installsiteman*dir isn't set in Config it falls back
# to installman*dir
{
    undef *ExtUtils::MM_Unix::Config;
    undef *ExtUtils::MM_Unix::Config_Override;
    %ExtUtils::MM_Unix::Config = %Config;
    *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;

    _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
    _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
    _set_config(installsiteman1dir => '' );
    _set_config(installsiteman3dir => '' );
    _set_config(installvendorman1dir => '' );
    _set_config(installvendorman3dir => '' );
    _set_config(usevendorprefix => 'define' );
    _set_config(vendorprefixexp => 'something' );

    my $wibble = File::Spec->catdir(qw(wibble and such));
    my $stdout = tie *STDOUT, 'TieOut' or die;
    my $mm = WriteMakefile(
                           NAME          => 'Big::Dummy',
                           VERSION_FROM  => 'lib/Big/Dummy.pm',
                           PERL_CORE     => $ENV{PERL_CORE},
                          );

    is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
    is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
    SKIP: {
      skip "VMS must expand macros in INSTALL* vars", 4 if $Is_VMS;
      is( $mm->{INSTALLSITEMAN1DIR},   '$(INSTALLMAN1DIR)' );
      is( $mm->{INSTALLSITEMAN3DIR},   '$(INSTALLMAN3DIR)' );
      is( $mm->{INSTALLVENDORMAN1DIR}, '$(INSTALLMAN1DIR)' );
      is( $mm->{INSTALLVENDORMAN3DIR}, '$(INSTALLMAN3DIR)' );
    }
}


# Check that when usevendoprefix and installvendorman*dir aren't set in 
# Config it leaves them unset.
{
    undef *ExtUtils::MM_Unix::Config;
    undef *ExtUtils::MM_Unix::Config_Override;
    %ExtUtils::MM_Unix::Config = %Config;
    *ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;

    _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
    _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
    _set_config(installsiteman1dir => '' );
    _set_config(installsiteman3dir => '' );
    _set_config(installvendorman1dir => '' );
    _set_config(installvendorman3dir => '' );
    _set_config(usevendorprefix => '' );
    _set_config(vendorprefixexp => '' );

    my $wibble = File::Spec->catdir(qw(wibble and such));
    my $stdout = tie *STDOUT, 'TieOut' or die;
    my $mm = WriteMakefile(
                           NAME          => 'Big::Dummy',
                           VERSION_FROM  => 'lib/Big/Dummy.pm',
                           PERL_CORE     => $ENV{PERL_CORE},
                          );

    is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
    is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
    SKIP: {
      skip "VMS must expand macros in INSTALL* vars", 2 if $Is_VMS;
      is( $mm->{INSTALLSITEMAN1DIR},   '$(INSTALLMAN1DIR)' );
      is( $mm->{INSTALLSITEMAN3DIR},   '$(INSTALLMAN3DIR)' );
    }
    is( $mm->{INSTALLVENDORMAN1DIR}, '' );
    is( $mm->{INSTALLVENDORMAN3DIR}, '' );
}


sub _set_config {
    my($k,$v) = @_;
    (my $k_no_install = $k) =~ s/^install//i;
    $ExtUtils::MM_Unix::Config{$k} = $v;

    # Because VMS's config has traditionally been underpopulated, it will
    # fall back to the install-less versions in desperation.
    $ExtUtils::MM_Unix::Config{$k_no_install} = $v if $Is_VMS;
    return;
}
Commit	Line	Data
5c161494	1	#!/usr/bin/perl -w
	2
	3	# Wherein we ensure the INST_* and INSTALL* variables are set correctly
	4	# when various PREFIX variables are set.
	5	#
	6	# Essentially, this test is a Makefile.PL.
	7
	8	BEGIN {
	9	if( $ENV{PERL_CORE} ) {
	10	chdir 't' if -d 't';
	11	@INC = ('../lib', 'lib');
	12	}
	13	else {
	14	unshift @INC, 't/lib';
	15	}
	16	}
	17
	18	use strict;
a7d1454b	19	use Test::More tests => 52;
5c161494	20	use MakeMaker::Test::Utils;
a7d1454b	21	use MakeMaker::Test::Setup::BFD;
5c161494	22	use ExtUtils::MakeMaker;
	23	use File::Spec;
	24	use TieOut;
	25	use Config;
	26
45bc4d3a	27	my $Is_VMS = $^O eq 'VMS';
	28
	29	chdir 't';
5c161494	30
	31	perl_lib;
	32
	33	$\| = 1;
	34
	35	my $Makefile = makefile_name;
	36	my $Curdir = File::Spec->curdir;
	37	my $Updir = File::Spec->updir;
	38
a7d1454b	39	ok( setup_recurs(), 'setup' );
	40	END {
	41	ok( chdir File::Spec->updir );
	42	ok( teardown_recurs(), 'teardown' );
	43	}
	44
45bc4d3a	45	ok( chdir 'Big-Dummy', "chdir'd to Big-Dummy" ) \|\|
5c161494	46	diag("chdir failed: $!");
	47
	48	my $stdout = tie *STDOUT, 'TieOut' or die;
479d2113	49
5c161494	50	my $mm = WriteMakefile(
45bc4d3a	51	NAME => 'Big::Dummy',
45bc4d3a	52	VERSION_FROM => 'lib/Big/Dummy.pm',
5c161494	53	PREREQ_PM => {},
5c161494	54	PERL_CORE => $ENV{PERL_CORE},
5c161494	55	);
479d2113	56
5c161494	57	like( $stdout->read, qr{
45bc4d3a	58	Writing\ $Makefile\ for\ Big::Liar\n
45bc4d3a	59	Big::Liar's\ vars\n
5c161494	60	INST_LIB\ =\ \S+\n
5c161494	61	INST_ARCHLIB\ =\ \S+\n
45bc4d3a	62	Writing\ $Makefile\ for\ Big::Dummy\n
5c161494	63	}x );
5c161494	64
a7d1454b	65	is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
a7d1454b	66
5c161494	67	isa_ok( $mm, 'ExtUtils::MakeMaker' );
5c161494	68
45bc4d3a	69	is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
5c161494	70	is( $mm->{VERSION}, 0.01, 'VERSION' );
5c161494	71
479d2113	72	foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
479d2113	73	unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
479d2113	74	}
	75
	76
	77	my $PREFIX = File::Spec->catdir('foo', 'bar');
	78	$mm = WriteMakefile(
	79	NAME => 'Big::Dummy',
	80	VERSION_FROM => 'lib/Big/Dummy.pm',
	81	PREREQ_PM => {},
	82	PERL_CORE => $ENV{PERL_CORE},
	83	PREFIX => $PREFIX,
	84	);
	85	like( $stdout->read, qr{
	86	Writing\ $Makefile\ for\ Big::Liar\n
	87	Big::Liar's\ vars\n
	88	INST_LIB\ =\ \S+\n
	89	INST_ARCHLIB\ =\ \S+\n
	90	Writing\ $Makefile\ for\ Big::Dummy\n
	91	}x );
	92	undef $stdout;
	93	untie *STDOUT;
	94
5e719f03	95	is( $mm->{PREFIX}, $PREFIX, 'PREFIX' );
479d2113	96
479d2113	97	foreach my $prefix (qw(PERLPREFIX SITEPREFIX VENDORPREFIX)) {
5e719f03	98	is( $mm->{$prefix}, '$(PREFIX)', "\$(PREFIX) overrides $prefix" );
479d2113	99	}
5c161494	100
	101	is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
	102
	103	my($perl_src, $mm_perl_src);
	104	if( $ENV{PERL_CORE} ) {
45bc4d3a	105	$perl_src = File::Spec->catdir($Updir, $Updir);
5c161494	106	$perl_src = File::Spec->canonpath($perl_src);
	107	$mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
	108	}
	109	else {
	110	$mm_perl_src = $mm->{PERL_SRC};
	111	}
	112
	113	is( $mm_perl_src, $perl_src, 'PERL_SRC' );
	114
	115
	116	# Every INSTALL* variable must start with some PREFIX.
479d2113	117	my %Install_Vars = (
	118	PERL => [qw(archlib privlib bin man1dir man3dir script)],
	119	SITE => [qw(sitearch sitelib sitebin siteman1dir siteman3dir)],
	120	VENDOR => [qw(vendorarch vendorlib vendorbin vendorman1dir vendorman3dir)]
	121	);
5c161494	122
479d2113	123	while( my($type, $vars) = each %Install_Vars) {
a7d1454b	124	SKIP: {
479d2113	125	skip "VMS must expand macros in INSTALL* vars", scalar @$vars
a7d1454b	126	if $Is_VMS;
	127	skip '$Config{usevendorprefix} not set', scalar @$vars
	128	if $type eq 'VENDOR' and !$Config{usevendorprefix};
	129
	130	foreach my $var (@$vars) {
	131	my $installvar = "install$var";
	132	my $prefix = '$('.$type.'PREFIX)';
	133
	134	SKIP: {
	135	skip uc($installvar).' set to another INSTALL variable', 1
	136	if $mm->{uc $installvar} =~ /^\$\(INSTALL.*\)$/;
	137
	138	# support for man page skipping
	139	$prefix = 'none' if $type eq 'PERL' &&
	140	$var =~ /man/ &&
	141	!$Config{$installvar};
	142	like( $mm->{uc $installvar}, qr/^\Q$prefix\E/,
	143	"$prefix + $var" );
	144	}
	145	}
479d2113	146	}
5c161494	147	}
45bc4d3a	148
45bc4d3a	149	# Check that when installman*dir isn't set in Config no man pages
	150	# are generated.
	151	{
	152	undef *ExtUtils::MM_Unix::Config;
5e719f03	153	undef *ExtUtils::MM_Unix::Config_Override;
45bc4d3a	154	%ExtUtils::MM_Unix::Config = %Config;
5e719f03	155	*ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
5e719f03	156
a7d1454b	157	_set_config(installman1dir => '');
a7d1454b	158	_set_config(installman3dir => '');
45bc4d3a	159
	160	my $wibble = File::Spec->catdir(qw(wibble and such));
	161	my $stdout = tie *STDOUT, 'TieOut' or die;
	162	my $mm = WriteMakefile(
	163	NAME => 'Big::Dummy',
	164	VERSION_FROM => 'lib/Big/Dummy.pm',
	165	PREREQ_PM => {},
	166	PERL_CORE => $ENV{PERL_CORE},
	167	PREFIX => $PREFIX,
	168	INSTALLMAN1DIR=> $wibble,
	169	);
	170
	171	is( $mm->{INSTALLMAN1DIR}, $wibble );
	172	is( $mm->{INSTALLMAN3DIR}, 'none' );
	173	}
5e719f03	174
	175	# Check that when installvendorman*dir is set in Config it is honored
	176	# [rt.cpan.org 2949]
	177	{
	178	undef *ExtUtils::MM_Unix::Config;
	179	undef *ExtUtils::MM_Unix::Config_Override;
	180	undef *ExtUtils::MM_VMS::Config;
	181
	182	%ExtUtils::MM_Unix::Config = %Config;
	183	*ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
	184
a7d1454b	185	_set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
	186	_set_config(installvendorman3dir => '' );
	187	_set_config(usevendorprefix => 1 );
	188	_set_config(vendorprefixexp => 'something' );
5e719f03	189
	190	my $stdout = tie *STDOUT, 'TieOut' or die;
	191	my $mm = WriteMakefile(
	192	NAME => 'Big::Dummy',
	193	VERSION_FROM => 'lib/Big/Dummy.pm',
	194	PREREQ_PM => {},
	195	PERL_CORE => $ENV{PERL_CORE},
	196
	197	# In case the local installation doesn't have man pages.
	198	INSTALLMAN1DIR=> 'foo/bar/baz',
	199	INSTALLMAN3DIR=> 'foo/bar/baz',
	200	);
	201
	202	is( $mm->{INSTALLVENDORMAN1DIR}, File::Spec->catdir('foo','bar'),
	203	'installvendorman1dir (in %Config) not modified' );
	204	isnt( $mm->{INSTALLVENDORMAN3DIR}, '',
	205	'installvendorman3dir (not in %Config) set' );
	206	}
a7d1454b	207
	208	# Check that when installsiteman*dir isn't set in Config it falls back
	209	# to installman*dir
	210	{
	211	undef *ExtUtils::MM_Unix::Config;
	212	undef *ExtUtils::MM_Unix::Config_Override;
	213	%ExtUtils::MM_Unix::Config = %Config;
	214	*ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
	215
	216	_set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
	217	_set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
	218	_set_config(installsiteman1dir => '' );
	219	_set_config(installsiteman3dir => '' );
	220	_set_config(installvendorman1dir => '' );
	221	_set_config(installvendorman3dir => '' );
	222	_set_config(usevendorprefix => 'define' );
	223	_set_config(vendorprefixexp => 'something' );
	224
	225	my $wibble = File::Spec->catdir(qw(wibble and such));
	226	my $stdout = tie *STDOUT, 'TieOut' or die;
	227	my $mm = WriteMakefile(
	228	NAME => 'Big::Dummy',
	229	VERSION_FROM => 'lib/Big/Dummy.pm',
	230	PERL_CORE => $ENV{PERL_CORE},
	231	);
	232
	233	is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
	234	is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
1238c24d	235	SKIP: {
	236	skip "VMS must expand macros in INSTALL* vars", 4 if $Is_VMS;
	237	is( $mm->{INSTALLSITEMAN1DIR}, '$(INSTALLMAN1DIR)' );
	238	is( $mm->{INSTALLSITEMAN3DIR}, '$(INSTALLMAN3DIR)' );
	239	is( $mm->{INSTALLVENDORMAN1DIR}, '$(INSTALLMAN1DIR)' );
	240	is( $mm->{INSTALLVENDORMAN3DIR}, '$(INSTALLMAN3DIR)' );
	241	}
a7d1454b	242	}
	243
	244
	245	# Check that when usevendoprefix and installvendorman*dir aren't set in
	246	# Config it leaves them unset.
	247	{
	248	undef *ExtUtils::MM_Unix::Config;
	249	undef *ExtUtils::MM_Unix::Config_Override;
	250	%ExtUtils::MM_Unix::Config = %Config;
	251	*ExtUtils::MM_VMS::Config = \%ExtUtils::MM_Unix::Config;
	252
	253	_set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
	254	_set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
	255	_set_config(installsiteman1dir => '' );
	256	_set_config(installsiteman3dir => '' );
	257	_set_config(installvendorman1dir => '' );
	258	_set_config(installvendorman3dir => '' );
	259	_set_config(usevendorprefix => '' );
	260	_set_config(vendorprefixexp => '' );
	261
	262	my $wibble = File::Spec->catdir(qw(wibble and such));
	263	my $stdout = tie *STDOUT, 'TieOut' or die;
	264	my $mm = WriteMakefile(
	265	NAME => 'Big::Dummy',
	266	VERSION_FROM => 'lib/Big/Dummy.pm',
	267	PERL_CORE => $ENV{PERL_CORE},
	268	);
	269
	270	is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
	271	is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
1238c24d	272	SKIP: {
	273	skip "VMS must expand macros in INSTALL* vars", 2 if $Is_VMS;
	274	is( $mm->{INSTALLSITEMAN1DIR}, '$(INSTALLMAN1DIR)' );
	275	is( $mm->{INSTALLSITEMAN3DIR}, '$(INSTALLMAN3DIR)' );
	276	}
a7d1454b	277	is( $mm->{INSTALLVENDORMAN1DIR}, '' );
	278	is( $mm->{INSTALLVENDORMAN3DIR}, '' );
	279	}
	280
	281
	282	sub _set_config {
	283	my($k,$v) = @_;
	284	(my $k_no_install = $k) =~ s/^install//i;
	285	$ExtUtils::MM_Unix::Config{$k} = $v;
	286
	287	# Because VMS's config has traditionally been underpopulated, it will
	288	# fall back to the install-less versions in desperation.
	289	$ExtUtils::MM_Unix::Config{$k_no_install} = $v if $Is_VMS;
	290	return;
	291	}