In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5f244db984d907853a5bd0b598472da074dc2c8d?hp=8bc57f96f937d587b8b8d23c3de87da45f9efad0>
- Log ----------------------------------------------------------------- commit 5f244db984d907853a5bd0b598472da074dc2c8d Author: David Mitchell <[email protected]> Date: Tue Jul 7 18:48:36 2009 +0100 some fixes to makerel: * add cmd-line switches * make ExtUtils::Manifest silent * remove some autogenerated files from the fixup list ----------------------------------------------------------------------- Summary of changes: Porting/makerel | 23 +++++++++++++++++++---- 1 files changed, 19 insertions(+), 4 deletions(-) diff --git a/Porting/makerel b/Porting/makerel index b197a24..b126164 100644 --- a/Porting/makerel +++ b/Porting/makerel @@ -10,9 +10,25 @@ # Tim Bunce, June 1997 use ExtUtils::Manifest qw(fullcheck); +$ExtUtils::Manifest::Quiet = 1; +use Getopt::Std; $|=1; -$relroot = ".."; # XXX make an option + +sub usage { die <<EOF; } +usage: $0 [ -r rootdir ] [-s suffix ] + -r rootdir directory under which to create the build dir and tarball + defaults to '..' + -s suffix suffix to append to to the perl-x.y.z dir and tarball name + defaults to the concatenaion of the local_patches entry + in patchlevel.h (or blank, if none) +EOF + +my %opts; +getopts('r:s:', \%opts) or usage; +...@argv && usage; + +$relroot = defined $opts{r} ? $opts{r} : ".."; die "Must be in root of the perl source tree.\n" unless -f "./MANIFEST" and -f "patchlevel.h"; @@ -37,6 +53,8 @@ $lpatch_tags = join "-", @lpatch_tags; $perl = "perl-$vers"; $reldir = "$perl"; + +$lpatch_tags = $opts{s} if defined $opts{s}; $reldir .= "-$lpatch_tags" if $lpatch_tags; print "\nMaking a release for $perl in $relroot/$reldir\n\n"; @@ -120,9 +138,6 @@ my @writables = qw( global.sym overload.c overload.h - pod/perlintern.pod - pod/perlapi.pod - pod/perltoc.pod perlapi.h perlapi.c ext/Devel-PPPort/module2.c -- Perl5 Master Repository
