=head1 VERSION
-Version 0.02_01
+Version 0.03
=cut
-our $VERSION = '0.02_01';
+our $VERSION = '0.03';
=head1 SYNOPSIS
my $stat = $self->status;
my $conf = $self->parent->parent->configure_object;
- $stat->mk_accessors(qw/name version dist desc uri src license deps
+ $stat->mk_accessors(qw/name version author dist desc uri src license deps
eb_name eb_version eb_dir eb_file fetched_arch
overlay distdir keywords do_manifest
force verbose/);
my $version = $mod->package_version;
$stat->version($version);
+ my $author = $mod->author->cpanid;
+ $stat->author($author);
+
$stat->dist($name . '-' . $version);
$version =~ s/[^\d._]+//g;
$stat->uri('http://search.cpan.org/dist/' . $name);
- unless ($name =~ /^([^-]+)/) {
- error 'Wrong distribution name -- aborting';
+ unless ($author =~ /^(.)(.)/) {
+ error 'Wrong author name -- aborting';
return 0;
}
- $stat->src('mirror://cpan/modules/by-module/' . $1 . '/' . $mod->package);
+ $stat->src("mirror://cpan/modules/by-authors/id/$1/$1$2/$author/"
+ . $mod->package);
$stat->license([ qw/Artistic GPL-2/ ]);
}
}
- my $d = "# Generated by CPANPLUS::Dist::Gentoo\n\ninherit perl-module\n\n";
+ my $d = "# Generated by CPANPLUS::Dist::Gentoo\n\n";
+ $d .= 'MODULE_AUTHOR="' . $stat->author . "\"\ninherit perl-module\n\n";
$d .= 'S="${WORKDIR}/' . $stat->dist . "\"\n";
$d .= 'DESCRIPTION="' . $stat->desc . "\"\n";
$d .= 'HOMEPAGE="' . $stat->uri . "\"\n";
. ' )';
} @{$stat->deps};
$d .= "\"\n";
+ $d .= "SRC_TEST=\"do\"\n";
my $file = $stat->eb_file;
open my $eb, '>', $file or do {