In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/74182dbd4562aa2e1f203924b0b5e6676faec47c?hp=9b657a623c3928518095c706c37ba6315469a48e>
- Log ----------------------------------------------------------------- commit 74182dbd4562aa2e1f203924b0b5e6676faec47c Author: David Golden <[email protected]> Date: Sun Jun 28 21:51:39 2009 -0400 fix MANIFEST perms & add case-insensitive exclude Signed-off-by: H.Merijn Brand <[email protected]> ----------------------------------------------------------------------- Summary of changes: Porting/add-package.pl | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) 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 -- Perl5 Master Repository
