diff options
| author | David Golden <dagolden@cpan.org> | 2009-06-28 21:51:39 -0400 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-06-29 08:32:26 +0200 |
| commit | 74182dbd4562aa2e1f203924b0b5e6676faec47c (patch) | |
| tree | 517e4af4edc0f1f851abdcdc4d70298fad9f9f9b /Porting/add-package.pl | |
| parent | 9b657a623c3928518095c706c37ba6315469a48e (diff) | |
| download | perl-74182dbd4562aa2e1f203924b0b5e6676faec47c.tar.gz | |
fix MANIFEST perms & add case-insensitive exclude
Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
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 |