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
|
use ExtUtils::MakeMaker;
sub MY::dist {
package MY; # so that "SUPER" works right
my $inherited = shift->SUPER::dist(@_);
$inherited .= "\nSCP = scp\n";
$inherited;
}
sub MY::dist_core {
package MY;
my $inherited = shift->SUPER::dist_core(@_);
$inherited .= <<'EOT';
mydist : tardist copydist
copydist :
EOT
$inherited .= "\t".'$(SCP) $(DISTVNAME).tar$(SUFFIX) s:/home/ftp/pub/perl/';
$inherited;
}
WriteMakefile(
'NAME' => 'Apache::DBILogger',
'VERSION_FROM' => 'DBILogger.pm', # finds $VERSION
'dist' => {COMPRESS => 'gzip', SUFFIX => '.gz'}
);
|
