#line 1

package Module::Install::Makefile;

use strict 'vars';

use ExtUtils::MakeMaker   ();

use Module::Install::Base ();

use vars qw{$VERSION @ISA $ISCORE};

BEGIN {

	$VERSION = '0.91';

	@ISA     = 'Module::Install::Base';

	$ISCORE  = 1;

}

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 @_;

	# Check the current Perl version

	my $perl_version = $self->perl_version;

	if ( $perl_version ) {

		eval "use $perl_version; 1"

			or die "ERROR: perl: Version $] is installed, "

			. "but we need version >= $perl_version";

	}

	# Make sure we have a new enough MakeMaker

	require ExtUtils::MakeMaker;

	if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {

		# 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->build_requires( 'ExtUtils::MakeMaker' => $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/ );

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

	} else {

		# Allow legacy-compatibility with 5.005 by depending on the

		# most recent EU:MM that supported 5.005.

		$self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );

		$self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );

	}

	# Generate the MakeMaker params

	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 394