From 1bad3b1a6d90b8b38bbfab90beba68cce49d4c3b Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 3 Sep 2013 17:47:56 -0400 Subject: refactor --- inc/MMPackageStash.pm | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/inc/MMPackageStash.pm b/inc/MMPackageStash.pm index d471114..dd658da 100644 --- a/inc/MMPackageStash.pm +++ b/inc/MMPackageStash.pm @@ -8,6 +8,8 @@ around _build_MakeFile_PL_template => sub { my $orig = shift; my $self = shift; + my $xs_version = $self->zilla->prereqs->requirements_for('runtime', 'recommends')->as_string_hash->{'Package::Stash::XS'}; + # copied from M::I my $can_cc = <<'CAN_CC'; use Config (); @@ -42,13 +44,16 @@ sub can_cc { } CAN_CC - my $template = $self->$orig(@_); - - my $xs_version = $self->zilla->prereqs->requirements_for('runtime', 'recommends')->as_string_hash->{'Package::Stash::XS'}; + my $fixup_prereqs = <$orig(@_); + $template =~ s/(WriteMakefile\()/$fixup_prereqs\n$1/; + $template .= $can_cc; - return $template . $can_cc; + return $template; }; __PACKAGE__->meta->make_immutable; -- cgit v1.2.3-54-g00ecf