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 (file)
--- 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