1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#line 1
package Module::Install::PerlTar;
use 5.006001;
use strict;
use warnings;
use Module::Install::Base ();
our @ISA = qw(Module::Install::Base);
our $VERSION = '1.001';
$VERSION =~ s/_//ms;
sub use_ptar {
my $self = shift;
return if not $Module::Install::AUTHOR;
eval { require Archive::Tar; 1; } or warn "Cannot find Archive::Tar\n";
eval { require IO::Compress::Gzip; 1; }
or warn "Cannot find IO::Compress::Gzip\n";
my %args = (
TAR => 'ptar',
TARFLAGS => '-c -C -f',
COMPRESS =>
q{perl -MIO::Compress::Gzip=gzip,:constants -e"my $$in = $$ARGV[0]; gzip($$in => qq($$in.gz), q(Level) => Z_BEST_COMPRESSION, q(BinModeIn) => 1) or die q(gzip failed); unlink $$in;"},
);
$self->makemaker_args( dist => \%args );
return 1;
} ## end sub use_ptar
1;
__END__
=encoding utf-8
#line 69
|
