Here is a patch (it's for sub FileText_Makefile),
go on, fix fix ;)
sub FileText_Makefile
{
my ($self) = @_;
# my $extras = join ("\n",
# map { " $_ => '$self->
{EXTRAMAKE}{$_}'," }
# keys %{$self->{EXTRAMAKE}}
# ) if ((exists $self->
{EXTRAMAKE}) &&
# (ref ($self->
{EXTRAMAKE}) eq 'hash'));
my $page = sprintf q~
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
NAME => '%s',
VERSION_FROM => '%s', # finds \$VERSION
AUTHOR => '%s (%s)',
ABSTRACT => '%s',
PREREQ_PM => {
'Test::Simple' => 0.44,
},
);
~, map { s{'}{\\'}g; $_ }
$self->{NAME},
$self->{FILE},
( $self->{AUTHOR}{NAME} ) x 2,
$self->{ABSTRACT};
# ($] ge '5.005')
# ? (AUTHOR => '$self->{AUTHOR}{NAME} ($self->{AUTHOR}
{EMAIL})',
# ABSTRACT => '$self->{ABSTRACT}',
# )
# : (),
return ($page);
}