From: Karen Etheridge <ether@cpan.org>
Date: Wed, 19 Jun 2013 05:49:58 +0000 (-0700)
Subject: MY::postamble accepts a param, which it will concat onto its results
X-Git-Tag: v0.001000~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b04017628d92e6ff1a6886f8aa6e8a72511a77e5;p=p5sagit%2FDistar.git

MY::postamble accepts a param, which it will concat onto its results
---

diff --git a/lib/Distar.pm b/lib/Distar.pm
index 5ffd7b5..e4f2628 100644
--- a/lib/Distar.pm
+++ b/lib/Distar.pm
@@ -85,6 +85,8 @@ sub run_preflight {
 }
 
 sub MY::postamble {
+    my ($self, %extra) = @_;
+
     my $post = <<'END';
 preflight:
 	perl -IDistar/lib -MDistar -erun_preflight $(VERSION)
@@ -104,6 +106,7 @@ END
     if (open my $fh, '<', 'maint/Makefile.include') {
         $post .= do { local $/; <$fh> };
     }
+    $post .= "\n" . join('', %extra) if keys %extra;
     return $post;
 }