diff options
| author | David Golden <dagolden@cpan.org> | 2009-06-28 21:51:39 -0400 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-06-30 14:03:08 +0100 |
| commit | e8cf42f3c62a02df5e64bdac936f835ccd568dd9 (patch) | |
| tree | abb32071f973fa33f722559a0127da7366007c9f /Porting/add-package.pl | |
| parent | bd632cc91e198dadee80d82a86688e543be40327 (diff) | |
| download | perl-e8cf42f3c62a02df5e64bdac936f835ccd568dd9.tar.gz | |
fix MANIFEST perms & add case-insensitive exclude
Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
(cherry picked from commit 74182dbd4562aa2e1f203924b0b5e6676faec47c)
Diffstat (limited to 'Porting/add-package.pl')
| -rw-r--r-- | 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 20947c0b53..6a07d7ef38 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 |