[p5sagit/Devel-Size.git] / inc / Module / Install / Makefile.pm

#line 1
package Module::Install::Makefile;

use strict 'vars';
use Module::Install::Base;
use ExtUtils::MakeMaker ();

use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
	$VERSION = '0.77';
	$ISCORE  = 1;
	@ISA     = qw{Module::Install::Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
	shift;

	# Infinite loop protection
	my @c = caller();
	if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
		die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
	}

	# In automated testing, always use defaults
	if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
		local $ENV{PERL_MM_USE_DEFAULT} = 1;
		goto &ExtUtils::MakeMaker::prompt;
	} else {
		goto &ExtUtils::MakeMaker::prompt;
	}
}

sub makemaker_args {
	my $self = shift;
	my $args = ( $self->{makemaker_args} ||= {} );
	%$args = ( %$args, @_ );
	return $args;
}

# For mm args that take multiple space-seperated args,
# append an argument to the current list.
sub makemaker_append {
	my $self = sShift;
	my $name = shift;
	my $args = $self->makemaker_args;
	$args->{name} = defined $args->{$name}
		? join( ' ', $args->{name}, @_ )
		: join( ' ', @_ );
}

sub build_subdirs {
	my $self    = shift;
	my $subdirs = $self->makemaker_args->{DIR} ||= [];
	for my $subdir (@_) {
		push @$subdirs, $subdir;
	}
}

sub clean_files {
	my $self  = shift;
	my $clean = $self->makemaker_args->{clean} ||= {};
	  %$clean = (
		%$clean, 
		FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
	);
}

sub realclean_files {
	my $self      = shift;
	my $realclean = $self->makemaker_args->{realclean} ||= {};
	  %$realclean = (
		%$realclean, 
		FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
	);
}

sub libs {
	my $self = shift;
	my $libs = ref $_[0] ? shift : [ shift ];
	$self->makemaker_args( LIBS => $libs );
}

sub inc {
	my $self = shift;
	$self->makemaker_args( INC => shift );
}

my %test_dir = ();

sub _wanted_t {
	/\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
}

sub tests_recursive {
	my $self = shift;
	if ( $self->tests ) {
		die "tests_recursive will not work if tests are already defined";
	}
	my $dir = shift || 't';
	unless ( -d $dir ) {
		die "tests_recursive dir '$dir' does not exist";
	}
	%test_dir = ();
	require File::Find;
	File::Find::find( \&_wanted_t, $dir );
	$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
}

sub write {
	my $self = shift;
	die "&Makefile->write() takes no arguments\n" if @_;

	# Make sure we have a new enough
	require ExtUtils::MakeMaker;

	# MakeMaker can complain about module versions that include
	# an underscore, even though its own version may contain one!
	# Hence the funny regexp to get rid of it.  See RT #35800
	# for details.

	$self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );

	# Generate the 
	my $args = $self->makemaker_args;
	$args->{DISTNAME} = $self->name;
	$args->{NAME}     = $self->module_name || $self->name;
	$args->{VERSION}  = $self->version;
	$args->{NAME}     =~ s/-/::/g;
	if ( $self->tests ) {
		$args->{test} = { TESTS => $self->tests };
	}
	if ($] >= 5.005) {
		$args->{ABSTRACT} = $self->abstract;
		$args->{AUTHOR}   = $self->author;
	}
	if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
		$args->{NO_META} = 1;
	}
	if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
		$args->{SIGN} = 1;
	}
	unless ( $self->is_admin ) {
		delete $args->{SIGN};
	}

	# merge both kinds of requires into prereq_pm
	my $prereq = ($args->{PREREQ_PM} ||= {});
	%$prereq = ( %$prereq,
		map { @$_ }
		map { @$_ }
		grep $_,
		($self->configure_requires, $self->build_requires, $self->requires)
	);

	# Remove any reference to perl, PREREQ_PM doesn't support it
	delete $args->{PREREQ_PM}->{perl};

	# merge both kinds of requires into prereq_pm
	my $subdirs = ($args->{DIR} ||= []);
	if ($self->bundles) {
		foreach my $bundle (@{ $self->bundles }) {
			my ($file, $dir) = @$bundle;
			push @$subdirs, $dir if -d $dir;
			delete $prereq->{$file};
		}
	}

	if ( my $perl_version = $self->perl_version ) {
		eval "use $perl_version; 1"
			or die "ERROR: perl: Version $] is installed, "
			. "but we need version >= $perl_version";
	}

	$args->{INSTALLDIRS} = $self->installdirs;

	my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;

	my $user_preop = delete $args{dist}->{PREOP};
	if (my $preop = $self->admin->preop($user_preop)) {
		foreach my $key ( keys %$preop ) {
			$args{dist}->{$key} = $preop->{$key};
		}
	}

	my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
	$self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
	my $self          = shift;
	my $makefile_name = shift;
	my $top_class     = ref($self->_top) || '';
	my $top_version   = $self->_top->VERSION || '';

	my $preamble = $self->preamble 
		? "# Preamble by $top_class $top_version\n"
			. $self->preamble
		: '';
	my $postamble = "# Postamble by $top_class $top_version\n"
		. ($self->postamble || '');

	local *MAKEFILE;
	open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
	my $makefile = do { local $/; <MAKEFILE> };
	close MAKEFILE or die $!;

	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
	$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
	$makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
	$makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
	$makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

	# Module::Install will never be used to build the Core Perl
	# Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
	# PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
	$makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
	#$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;

	# Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
	$makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;

	# XXX - This is currently unused; not sure if it breaks other MM-users
	# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

	open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
	print MAKEFILE  "$preamble$makefile$postamble" or die $!;
	close MAKEFILE  or die $!;

	1;
}

sub preamble {
	my ($self, $text) = @_;
	$self->{preamble} = $text . $self->{preamble} if defined $text;
	$self->{preamble};
}

sub postamble {
	my ($self, $text) = @_;
	$self->{postamble} ||= $self->admin->postamble;
	$self->{postamble} .= $text if defined $text;
	$self->{postamble}
}

1;

__END__

#line 379
Commit	Line	Data
0430b7f7	1	#line 1
	2	package Module::Install::Makefile;
	3
	4	use strict 'vars';
	5	use Module::Install::Base;
	6	use ExtUtils::MakeMaker ();
	7
	8	use vars qw{$VERSION $ISCORE @ISA};
	9	BEGIN {
f44772ad	10	$VERSION = '0.77';
0430b7f7	11	$ISCORE = 1;
	12	@ISA = qw{Module::Install::Base};
	13	}
	14
	15	sub Makefile { $_[0] }
	16
	17	my %seen = ();
	18
	19	sub prompt {
8b959707	20	shift;
	21
	22	# Infinite loop protection
	23	my @c = caller();
	24	if ( ++$seen{"$c[1]\|$c[2]\|$_[0]"} > 3 ) {
	25	die "Caught an potential prompt infinite loop ($c[1]\|$c[2]\|$_[0])";
	26	}
	27
	28	# In automated testing, always use defaults
	29	if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
	30	local $ENV{PERL_MM_USE_DEFAULT} = 1;
	31	goto &ExtUtils::MakeMaker::prompt;
	32	} else {
	33	goto &ExtUtils::MakeMaker::prompt;
	34	}
0430b7f7	35	}
	36
	37	sub makemaker_args {
8b959707	38	my $self = shift;
f44772ad	39	my $args = ( $self->{makemaker_args} \|\|= {} );
	40	%$args = ( %$args, @_ );
	41	return $args;
0430b7f7	42	}
	43
	44	# For mm args that take multiple space-seperated args,
	45	# append an argument to the current list.
	46	sub makemaker_append {
8b959707	47	my $self = sShift;
	48	my $name = shift;
	49	my $args = $self->makemaker_args;
	50	$args->{name} = defined $args->{$name}
	51	? join( ' ', $args->{name}, @_ )
	52	: join( ' ', @_ );
0430b7f7	53	}
	54
	55	sub build_subdirs {
8b959707	56	my $self = shift;
	57	my $subdirs = $self->makemaker_args->{DIR} \|\|= [];
	58	for my $subdir (@_) {
	59	push @$subdirs, $subdir;
	60	}
0430b7f7	61	}
	62
	63	sub clean_files {
8b959707	64	my $self = shift;
8b959707	65	my $clean = $self->makemaker_args->{clean} \|\|= {};
6ea94d90	66	%$clean = (
8b959707	67	%$clean,
6ea94d90	68	FILES => join ' ', grep { length $_ } ($clean->{FILES} \|\| (), @_),
8b959707	69	);
0430b7f7	70	}
	71
	72	sub realclean_files {
6ea94d90	73	my $self = shift;
8b959707	74	my $realclean = $self->makemaker_args->{realclean} \|\|= {};
6ea94d90	75	%$realclean = (
8b959707	76	%$realclean,
6ea94d90	77	FILES => join ' ', grep { length $_ } ($realclean->{FILES} \|\| (), @_),
8b959707	78	);
0430b7f7	79	}
	80
	81	sub libs {
8b959707	82	my $self = shift;
	83	my $libs = ref $_[0] ? shift : [ shift ];
	84	$self->makemaker_args( LIBS => $libs );
0430b7f7	85	}
	86
	87	sub inc {
8b959707	88	my $self = shift;
	89	$self->makemaker_args( INC => shift );
	90	}
	91
	92	my %test_dir = ();
	93
	94	sub _wanted_t {
	95	/\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
	96	}
	97
	98	sub tests_recursive {
	99	my $self = shift;
	100	if ( $self->tests ) {
	101	die "tests_recursive will not work if tests are already defined";
	102	}
	103	my $dir = shift \|\| 't';
	104	unless ( -d $dir ) {
	105	die "tests_recursive dir '$dir' does not exist";
	106	}
8b959707	107	%test_dir = ();
6ea94d90	108	require File::Find;
8b959707	109	File::Find::find( \&_wanted_t, $dir );
8b959707	110	$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
0430b7f7	111	}
	112
	113	sub write {
8b959707	114	my $self = shift;
	115	die "&Makefile->write() takes no arguments\n" if @_;
	116
6ea94d90	117	# Make sure we have a new enough
6ea94d90	118	require ExtUtils::MakeMaker;
f44772ad	119
	120	# MakeMaker can complain about module versions that include
	121	# an underscore, even though its own version may contain one!
	122	# Hence the funny regexp to get rid of it. See RT #35800
	123	# for details.
	124
	125	$self->configure_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );
6ea94d90	126
6ea94d90	127	# Generate the
8b959707	128	my $args = $self->makemaker_args;
8b959707	129	$args->{DISTNAME} = $self->name;
6ea94d90	130	$args->{NAME} = $self->module_name \|\| $self->name;
6ea94d90	131	$args->{VERSION} = $self->version;
8b959707	132	$args->{NAME} =~ s/-/::/g;
	133	if ( $self->tests ) {
	134	$args->{test} = { TESTS => $self->tests };
	135	}
	136	if ($] >= 5.005) {
	137	$args->{ABSTRACT} = $self->abstract;
	138	$args->{AUTHOR} = $self->author;
	139	}
	140	if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
	141	$args->{NO_META} = 1;
	142	}
	143	if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
	144	$args->{SIGN} = 1;
	145	}
	146	unless ( $self->is_admin ) {
	147	delete $args->{SIGN};
	148	}
	149
	150	# merge both kinds of requires into prereq_pm
	151	my $prereq = ($args->{PREREQ_PM} \|\|= {});
	152	%$prereq = ( %$prereq,
	153	map { @$_ }
	154	map { @$_ }
	155	grep $_,
6ea94d90	156	($self->configure_requires, $self->build_requires, $self->requires)
8b959707	157	);
8b959707	158
6ea94d90	159	# Remove any reference to perl, PREREQ_PM doesn't support it
	160	delete $args->{PREREQ_PM}->{perl};
	161
8b959707	162	# merge both kinds of requires into prereq_pm
	163	my $subdirs = ($args->{DIR} \|\|= []);
	164	if ($self->bundles) {
	165	foreach my $bundle (@{ $self->bundles }) {
	166	my ($file, $dir) = @$bundle;
	167	push @$subdirs, $dir if -d $dir;
	168	delete $prereq->{$file};
	169	}
	170	}
	171
	172	if ( my $perl_version = $self->perl_version ) {
	173	eval "use $perl_version; 1"
	174	or die "ERROR: perl: Version $] is installed, "
	175	. "but we need version >= $perl_version";
	176	}
	177
	178	$args->{INSTALLDIRS} = $self->installdirs;
	179
	180	my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
	181
	182	my $user_preop = delete $args{dist}->{PREOP};
	183	if (my $preop = $self->admin->preop($user_preop)) {
f44772ad	184	foreach my $key ( keys %$preop ) {
	185	$args{dist}->{$key} = $preop->{$key};
	186	}
8b959707	187	}
	188
	189	my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
	190	$self->fix_up_makefile($mm->{FIRST_MAKEFILE} \|\| 'Makefile');
0430b7f7	191	}
	192
	193	sub fix_up_makefile {
8b959707	194	my $self = shift;
	195	my $makefile_name = shift;
	196	my $top_class = ref($self->_top) \|\| '';
	197	my $top_version = $self->_top->VERSION \|\| '';
	198
	199	my $preamble = $self->preamble
	200	? "# Preamble by $top_class $top_version\n"
	201	. $self->preamble
	202	: '';
	203	my $postamble = "# Postamble by $top_class $top_version\n"
	204	. ($self->postamble \|\| '');
	205
	206	local *MAKEFILE;
	207	open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
	208	my $makefile = do { local $/; <MAKEFILE> };
	209	close MAKEFILE or die $!;
	210
	211	$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
	212	$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
	213	$makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
	214	$makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
	215	$makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
	216
	217	# Module::Install will never be used to build the Core Perl
	218	# Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks
	219	# PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist
	220	$makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m;
	221	#$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m;
	222
	223	# Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well.
6ea94d90	224	$makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g;
8b959707	225
	226	# XXX - This is currently unused; not sure if it breaks other MM-users
	227	# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
	228
	229	open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
	230	print MAKEFILE "$preamble$makefile$postamble" or die $!;
	231	close MAKEFILE or die $!;
	232
	233	1;
0430b7f7	234	}
	235
	236	sub preamble {
8b959707	237	my ($self, $text) = @_;
	238	$self->{preamble} = $text . $self->{preamble} if defined $text;
	239	$self->{preamble};
0430b7f7	240	}
	241
	242	sub postamble {
8b959707	243	my ($self, $text) = @_;
	244	$self->{postamble} \|\|= $self->admin->postamble;
	245	$self->{postamble} .= $text if defined $text;
	246	$self->{postamble}
0430b7f7	247	}
	248
	249	1;
	250
	251	__END__
	252
f44772ad	253	#line 379