From: David Golden <dagolden@cpan.org>
Date: Fri, 5 Mar 2010 20:18:48 +0000 (-0500)
Subject: add makerel option to skip tarball creation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1baeb4021808a25a79f3d2b37144610045a5c5c9;p=p5sagit%2Fp5-mst-13.2.git

add makerel option to skip tarball creation
---

diff --git a/Porting/makerel b/Porting/makerel
index d0bf4ef..6c6ee95 100644
--- a/Porting/makerel
+++ b/Porting/makerel
@@ -30,17 +30,18 @@ use Getopt::Std;
 $|=1;
 
 sub usage { die <<EOF; }
-usage: $0 [ -r rootdir ] [-s suffix ] [ -b ]
+usage: $0 [ -r rootdir ] [-s suffix ] [ -b ] [ -n ]
     -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)
     -b           make a .bz2 file in addtion to a .gz file
+    -n           do not make any tarballs, just the directory
 EOF
 
 my %opts;
-getopts('br:s:', \%opts) or usage;
+getopts('bnr:s:', \%opts) or usage;
 @ARGV && usage;
 
 $relroot = defined $opts{r} ? $opts{r} : "..";
@@ -186,6 +187,8 @@ system("chmod +w @writables") == 0
 
 chdir ".." or die $!;
 
+exit if $opts{n};
+
 my $src = (-e $perl) ? $perl : 'perl'; # 'perl' in maint branch
 
 print "Creating and compressing the tar.gz file...\n";