use ExtUtils::MakeMaker; sub MY::processPL { my $self = shift; local *processPL; $_ = $self->MM::processPL; my @lines = split("\n", $_); my $i; # include extra params on fom line for ($i=0; $i<@lines; $i++) { last if ($lines[$i] =~ m/^fom/); } $i+=1; # we actually want to append the _next_ line. if ($lines >= @lines) { print STDERR "Warning: Makefile.PL's overriding of " ."processPL seems to have failed.\n"; } else { $lines[$i].= " PERL=\$(PERL)" ." INSTALLSITELIB=\$(INSTALLSITELIB)"; } $_ = join ("\n", @lines)."\n"; } WriteMakefile( NAME => 'FAQ::OMatic', VERSION_FROM => 'lib/FAQ/OMatic.pm', 'dist' => { 'COMPRESS'=>'gzip', 'SUFFIX'=>'gz', 'PREOP'=>'VERSION=${VERSION} dev-bin/distribute-prep', 'POSTOP'=> 'VERSION=${VERSION} dev-bin/distribute-final' }, ); sub MY::top_targets { my $self = shift; my $string = $self->MM::top_targets; $string .= <<'EOF'; update_readme: lwp-request 'http://www.jonh.net/cgi-bin/faqomatic/fom?file=1026&render=text' > README EOF $string; }