From: David Golden <dagolden@cpan.org>
Date: Mon, 29 Jun 2009 01:51:39 +0000 (-0400)
Subject: fix MANIFEST perms & add case-insensitive exclude
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=74182dbd4562aa2e1f203924b0b5e6676faec47c;p=p5sagit%2Fp5-mst-13.2.git

fix MANIFEST perms & add case-insensitive exclude

Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
---

diff --git a/Porting/add-package.pl b/Porting/add-package.pl
index 20947c0..6a07d7e 100644
--- a/Porting/add-package.pl
+++ b/Porting/add-package.pl
@@ -12,7 +12,7 @@ getopts( 'r:p:e:vudn', $Opts );
 
 my $Cwd         = cwd(); 
 my $Verbose     = 1;
-my $ExcludeRe   = $Opts->{e} ? qr/$Opts->{e}/ : undef;
+my $ExcludeRe   = $Opts->{e} ? qr/$Opts->{e}/i : undef;
 my $Debug       = $Opts->{v} || 0;
 my $RunDiff     = $Opts->{d} || 0;
 my $PkgDir      = $Opts->{p} || cwd();
@@ -439,7 +439,7 @@ my @ChangedFiles;
 
     push @manifest, values %pkg_files;
 
-    {   chmod 0755, $file;
+    {   chmod 0644, $file;
         open my $fh, ">$file" or die "Could not open $file for writing: $!";
         #print $fh sort { lc $a cmp lc $b } @manifest;
         ### XXX stolen from pod/buildtoc:sub do_manifest