Skip to content

Commit

Permalink
Archive::Tar is now the default everywhere. Avoids problems with
Browse files Browse the repository at this point in the history
unix-like systems with incompatible tars, like AIX and Sun's tar.

"All your tars are belong to Perl."


git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@12664 50811bd7-b8ce-0310-adc1-d9db26280581
  • Loading branch information
xdg committed Apr 1, 2009
1 parent 0ca84a4 commit bd04b68
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 12 deletions.
2 changes: 1 addition & 1 deletion Build.PL
Original file line number Diff line number Diff line change
Expand Up @@ -27,6 +27,7 @@ my $build = ModuleBuildBuilder->new(
},
requires => {
'perl' => '5.006001',
'Archive::Tar' => '1.08',
'Data::Dumper' => 0,
'File::Basename' => 0,
'File::Compare' => 0,
Expand All @@ -45,7 +46,6 @@ my $build = ModuleBuildBuilder->new(
'Test::Harness' => 0,
},
recommends => {
'Archive::Tar' => '1.08',
'ExtUtils::CBuilder' => 0.15,
'ExtUtils::Install' => 0.30,
'ExtUtils::ParseXS' => 1.02,
Expand Down
7 changes: 3 additions & 4 deletions lib/Module/Build.pm
Original file line number Diff line number Diff line change
Expand Up @@ -293,10 +293,9 @@ module for source distribution through a medium like CPAN. It will create a
tarball of the files listed in F<MANIFEST> and compress the tarball using
GZIP compression.
By default, this action will use the external C<tar> and C<gzip>
executables on Unix-like platforms, and the C<Archive::Tar> module
elsewhere. However, you can force it to use whatever executable you
want by supplying an explicit C<tar> (and optional C<gzip>) parameter:
By default, this action will use the C<Archive::Tar> module. However, you can
force it to use binary "tar" and "gzip" executables by supplying an explicit
C<tar> (and optional C<gzip>) parameter:
./Build dist --tar C:\path\to\tar.exe --gzip C:\path\to\zip.exe
Expand Down
7 changes: 0 additions & 7 deletions lib/Module/Build/Platform/Unix.pm
Original file line number Diff line number Diff line change
Expand Up @@ -9,13 +9,6 @@ use Module::Build::Base;
use vars qw(@ISA);
@ISA = qw(Module::Build::Base);

sub make_tarball {
my $self = shift;
$self->{args}{tar} ||= ['tar'];
$self->{args}{gzip} ||= ['gzip'];
$self->SUPER::make_tarball(@_);
}

sub is_executable {
# We consider the owner bit to be authoritative on a file, because
# -x will always return true if the user is root and *any*
Expand Down

0 comments on commit bd04b68

Please sign in to comment.