From: Karen Etheridge Date: Tue, 16 Jul 2013 19:18:33 +0000 (-0700) Subject: explain what the extra args are used for X-Git-Tag: v0.001000~4 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfee32072b9767e173114d3ed8c4a6f7e50a4669;p=p5sagit%2FDistar.git explain what the extra args are used for --- diff --git a/lib/Distar.pm b/lib/Distar.pm index e4f2628..1083d40 100644 --- a/lib/Distar.pm +++ b/lib/Distar.pm @@ -106,7 +106,11 @@ END if (open my $fh, '<', 'maint/Makefile.include') { $post .= do { local $/; <$fh> }; } + + # add on any extra args that WriteMakefile chose to pass us + # (note that Devel::Declare, and possibly others, use this) $post .= "\n" . join('', %extra) if keys %extra; + return $post; }