1#line 1 2package Module::Install::Makefile; 3 4use strict 'vars'; 5use ExtUtils::MakeMaker (); 6use Module::Install::Base (); 7 8use vars qw{$VERSION @ISA $ISCORE}; 9BEGIN { 10 $VERSION = '0.93'; 11 @ISA = 'Module::Install::Base'; 12 $ISCORE = 1; 13} 14 15sub Makefile { $_[0] } 16 17my %seen = (); 18 19sub prompt { 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 } 35} 36 37# Store a cleaned up version of the MakeMaker version, 38# since we need to behave differently in a variety of 39# ways based on the MM version. 40my $makemaker = eval $ExtUtils::MakeMaker::VERSION; 41 42# If we are passed a param, do a "newer than" comparison. 43# Otherwise, just return the MakeMaker version. 44sub makemaker { 45 ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 46} 47 48sub makemaker_args { 49 my $self = shift; 50 my $args = ( $self->{makemaker_args} ||= {} ); 51 %$args = ( %$args, @_ ); 52 return $args; 53} 54 55# For mm args that take multiple space-seperated args, 56# append an argument to the current list. 57sub makemaker_append { 58 my $self = shift; 59 my $name = shift; 60 my $args = $self->makemaker_args; 61 $args->{name} = defined $args->{$name} 62 ? join( ' ', $args->{name}, @_ ) 63 : join( ' ', @_ ); 64} 65 66sub build_subdirs { 67 my $self = shift; 68 my $subdirs = $self->makemaker_args->{DIR} ||= []; 69 for my $subdir (@_) { 70 push @$subdirs, $subdir; 71 } 72} 73 74sub clean_files { 75 my $self = shift; 76 my $clean = $self->makemaker_args->{clean} ||= {}; 77 %$clean = ( 78 %$clean, 79 FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_), 80 ); 81} 82 83sub realclean_files { 84 my $self = shift; 85 my $realclean = $self->makemaker_args->{realclean} ||= {}; 86 %$realclean = ( 87 %$realclean, 88 FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_), 89 ); 90} 91 92sub libs { 93 my $self = shift; 94 my $libs = ref $_[0] ? shift : [ shift ]; 95 $self->makemaker_args( LIBS => $libs ); 96} 97 98sub inc { 99 my $self = shift; 100 $self->makemaker_args( INC => shift ); 101} 102 103my %test_dir = (); 104 105sub _wanted_t { 106 /\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1; 107} 108 109sub tests_recursive { 110 my $self = shift; 111 if ( $self->tests ) { 112 die "tests_recursive will not work if tests are already defined"; 113 } 114 my $dir = shift || 't'; 115 unless ( -d $dir ) { 116 die "tests_recursive dir '$dir' does not exist"; 117 } 118 %test_dir = (); 119 require File::Find; 120 File::Find::find( \&_wanted_t, $dir ); 121 if ( -d 'xt' and ($ENV{RELEASE_TESTING} or $self->author) ) { 122 File::Find::find( \&_wanted_t, 'xt' ); 123 } 124 $self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir ); 125} 126 127sub write { 128 my $self = shift; 129 die "&Makefile->write() takes no arguments\n" if @_; 130 131 # Check the current Perl version 132 my $perl_version = $self->perl_version; 133 if ( $perl_version ) { 134 eval "use $perl_version; 1" 135 or die "ERROR: perl: Version $] is installed, " 136 . "but we need version >= $perl_version"; 137 } 138 139 # Make sure we have a new enough MakeMaker 140 require ExtUtils::MakeMaker; 141 142 if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) { 143 # MakeMaker can complain about module versions that include 144 # an underscore, even though its own version may contain one! 145 # Hence the funny regexp to get rid of it. See RT #35800 146 # for details. 147 my $v = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/; 148 $self->build_requires( 'ExtUtils::MakeMaker' => $v ); 149 $self->configure_requires( 'ExtUtils::MakeMaker' => $v ); 150 } else { 151 # Allow legacy-compatibility with 5.005 by depending on the 152 # most recent EU:MM that supported 5.005. 153 $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 ); 154 $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 ); 155 } 156 157 # Generate the MakeMaker params 158 my $args = $self->makemaker_args; 159 $args->{DISTNAME} = $self->name; 160 $args->{NAME} = $self->module_name || $self->name; 161 $args->{VERSION} = $self->version; 162 $args->{NAME} =~ s/-/::/g; 163 $DB::single = 1; 164 if ( $self->tests ) { 165 $args->{test} = { TESTS => $self->tests }; 166 } elsif ( -d 'xt' and ($self->author or $ENV{RELEASE_TESTING}) ) { 167 $args->{test} = { 168 TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ), 169 }; 170 } 171 if ( $] >= 5.005 ) { 172 $args->{ABSTRACT} = $self->abstract; 173 $args->{AUTHOR} = $self->author; 174 } 175 if ( $self->makemaker(6.10) ) { 176 $args->{NO_META} = 1; 177 #$args->{NO_MYMETA} = 1; 178 } 179 if ( $self->makemaker(6.17) and $self->sign ) { 180 $args->{SIGN} = 1; 181 } 182 unless ( $self->is_admin ) { 183 delete $args->{SIGN}; 184 } 185 186 my $prereq = ($args->{PREREQ_PM} ||= {}); 187 %$prereq = ( %$prereq, 188 map { @$_ } # flatten [module => version] 189 map { @$_ } 190 grep $_, 191 ($self->requires) 192 ); 193 194 # Remove any reference to perl, PREREQ_PM doesn't support it 195 delete $args->{PREREQ_PM}->{perl}; 196 197 # Merge both kinds of requires into BUILD_REQUIRES 198 my $build_prereq = ($args->{BUILD_REQUIRES} ||= {}); 199 %$build_prereq = ( %$build_prereq, 200 map { @$_ } # flatten [module => version] 201 map { @$_ } 202 grep $_, 203 ($self->configure_requires, $self->build_requires) 204 ); 205 206 # Remove any reference to perl, BUILD_REQUIRES doesn't support it 207 delete $args->{BUILD_REQUIRES}->{perl}; 208 209 # Delete bundled dists from prereq_pm 210 my $subdirs = ($args->{DIR} ||= []); 211 if ($self->bundles) { 212 foreach my $bundle (@{ $self->bundles }) { 213 my ($file, $dir) = @$bundle; 214 push @$subdirs, $dir if -d $dir; 215 delete $build_prereq->{$file}; #Delete from build prereqs only 216 } 217 } 218 219 unless ( $self->makemaker('6.55_03') ) { 220 %$prereq = (%$prereq,%$build_prereq); 221 delete $args->{BUILD_REQUIRES}; 222 } 223 224 if ( my $perl_version = $self->perl_version ) { 225 eval "use $perl_version; 1" 226 or die "ERROR: perl: Version $] is installed, " 227 . "but we need version >= $perl_version"; 228 229 if ( $self->makemaker(6.48) ) { 230 $args->{MIN_PERL_VERSION} = $perl_version; 231 } 232 } 233 234 $args->{INSTALLDIRS} = $self->installdirs; 235 236 my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args; 237 238 my $user_preop = delete $args{dist}->{PREOP}; 239 if (my $preop = $self->admin->preop($user_preop)) { 240 foreach my $key ( keys %$preop ) { 241 $args{dist}->{$key} = $preop->{$key}; 242 } 243 } 244 245 my $mm = ExtUtils::MakeMaker::WriteMakefile(%args); 246 $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile'); 247} 248 249sub fix_up_makefile { 250 my $self = shift; 251 my $makefile_name = shift; 252 my $top_class = ref($self->_top) || ''; 253 my $top_version = $self->_top->VERSION || ''; 254 255 my $preamble = $self->preamble 256 ? "# Preamble by $top_class $top_version\n" 257 . $self->preamble 258 : ''; 259 my $postamble = "# Postamble by $top_class $top_version\n" 260 . ($self->postamble || ''); 261 262 local *MAKEFILE; 263 open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!"; 264 my $makefile = do { local $/; <MAKEFILE> }; 265 close MAKEFILE or die $!; 266 267 $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /; 268 $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g; 269 $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g; 270 $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m; 271 $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m; 272 273 # Module::Install will never be used to build the Core Perl 274 # Sometimes PERL_LIB and PERL_ARCHLIB get written anyway, which breaks 275 # PREFIX/PERL5LIB, and thus, install_share. Blank them if they exist 276 $makefile =~ s/^PERL_LIB = .+/PERL_LIB =/m; 277 #$makefile =~ s/^PERL_ARCHLIB = .+/PERL_ARCHLIB =/m; 278 279 # Perl 5.005 mentions PERL_LIB explicitly, so we have to remove that as well. 280 $makefile =~ s/(\"?)-I\$\(PERL_LIB\)\1//g; 281 282 # XXX - This is currently unused; not sure if it breaks other MM-users 283 # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg; 284 285 open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!"; 286 print MAKEFILE "$preamble$makefile$postamble" or die $!; 287 close MAKEFILE or die $!; 288 289 1; 290} 291 292sub preamble { 293 my ($self, $text) = @_; 294 $self->{preamble} = $text . $self->{preamble} if defined $text; 295 $self->{preamble}; 296} 297 298sub postamble { 299 my ($self, $text) = @_; 300 $self->{postamble} ||= $self->admin->postamble; 301 $self->{postamble} .= $text if defined $text; 302 $self->{postamble} 303} 304 3051; 306 307__END__ 308 309#line 435 310