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'}

);