Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

get and set mode on tar contents

  • Loading branch information...
commit 8898feff890e667359e5ddecf7b714a12f29954a 1 parent acf5309
@rjbs authored
View
1  Changes
@@ -1,6 +1,7 @@
Revision history for {{$dist->name}}
{{$NEXT}}
+ move the file mode setting into the tar creation, not a fixup step
4.200010 2011-07-14 22:27:46 America/New_York
fix [rt.cpan.org #68223] -- Test::Dzil built tarballs with bad root
View
0  bin/dzil 100644 → 100755
File mode changed
View
10 lib/Dist/Zilla/Dist/Builder.pm
@@ -402,23 +402,19 @@ sub build_archive {
)
}
+ my $filename = $built_in->file( $distfile->name );
$archive->add_data(
$basedir->file( $distfile->name ),
do {
use autodie;
local $/;
- open my $fh, '<', $built_in->file( $distfile->name );
+ open my $fh, '<', $filename;
<$fh>;
},
+ { mode => (stat $filename)[2] & ~022 },
);
}
- # Fix up the CHMOD on the archived files, to inhibit 'withoutworldwritables'
- # behaviour on win32.
- for my $f ( $archive->get_files ) {
- $f->mode( $f->mode & ~022 );
- }
-
my $file = file("$basename.tar.gz");
$self->log("writing archive to $file");
Please sign in to comment.
Something went wrong with that request. Please try again.