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

[p5sagit/Distar.git] / lib / Distar.pm

diff --git a/lib/Distar.pm b/lib/Distar.pm
index 34e1e31..e4f2628 100644 (file)
--- 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)
@@ -95,8 +97,7 @@ release: preflight
        git commit -a -m "Release commit for $(VERSION)"
        git tag v$(VERSION) -m "release v$(VERSION)"
        cpan-upload $(DISTVNAME).tar$(SUFFIX)
-       git push --tags origin
-       git push origin HEAD
+       git push origin --tags HEAD
 distdir: readmefile
 readmefile: create_distdir
        pod2text $(VERSION_FROM) >$(DISTVNAME)/README
@@ -105,6 +106,7 @@ END
     if (open my $fh, '<', 'maint/Makefile.include') {
         $post .= do { local $/; <$fh> };
     }
+    $post .= "\n" . join('', %extra) if keys %extra;
     return $post;
 }