The generated ebuilds are placed into the section C<perl-gcpanp>. They favour depending on C<perl-core> or C<dev-perl> rather than C<perl-gcpanp>.
+=head1 INSTALLATION
+
+After installing this module, you should append C<perl-gcpanp> to your F</etc/portage/categories> file.
+
=head1 METHODS
All the methods are inherited from L<CPANPLUS::Dist::Base>. Please refer to its perldoc for precise information on what's done at each step.
}
my %gentooism = (
- 'Digest' => 'digest-base',
- 'Locale-Maketext' => 'locale-maketext',
- 'Net-Ping' => 'net-ping',
- 'PathTools' => 'File-Spec',
- 'PodParser' => 'Pod-Parser',
+ 'Digest' => 'digest-base',
+ 'Locale-Maketext' => 'locale-maketext',
+ 'Net-Ping' => 'net-ping',
+ 'PathTools' => 'File-Spec',
+ 'PodParser' => 'Pod-Parser',
+ 'Set-Scalar' => 'set-scalar',
+ 'Tie-EncryptedHash' => 'tie-encryptedhash',
);
sub prepare {
$stat->license([ qw/Artistic GPL-2/ ]);
my $prereqs = $mod->status->prereqs;
+ $prereqs = { map { ($gentooism{$_} || $_) => $prereqs->{$_} } keys %$prereqs };
my @depends;
for my $prereq (sort keys %$prereqs) {
+ next if $prereq =~ /^perl(?:-|\z)/;
my $obj = $int->module_tree($prereq);
unless ($obj) {
error 'Wrong module object -- aborting';
sub create {
my $self = shift;
my $stat = $self->status;
+ my $conf = $self->parent->parent->configure_object;
unless ($stat->prepared) {
error 'Can\'t create ' . $stat->dist . ' since it was never prepared -- aborting';
$a .= '-' . $_->[1];
}
'|| ( ' . join(' ', map "$x$_/$a",
- qw/perl-core dev-perl/, CATEGORY) # perl-gcpan ?
+ qw/perl-core dev-perl perl-gcpan/, CATEGORY)
. ' )';
} @{$stat->deps};
$d .= "\"\n";
}
msg 'Adding Manifest entry for ' . $stat->dist;
- unless (scalar run command => [ 'ebuild', $file, 'manifest' ], verbose => 0) {
- error 'ebuild manifest failed -- aborting';
+ my ($success, $errmsg, $output) = run
+ command => [ 'ebuild', $file, 'manifest' ],
+ verbose => 0;
+ unless ($success) {
+ error "$errmsg -- aborting";
+ if (defined $output and $conf->get_conf('verbose')) {
+ my $msg = join '', @$output;
+ 1 while chomp $msg;
+ error $msg;
+ }
1 while unlink $file;
return 0;
}
my @cmd = ('emerge', '=' . $stat->eb_name . '-' . $stat->eb_version);
unshift @cmd, $sudo if $sudo;
- unless (run command => \@cmd, verbose => 1) {
- error 'emerge failed -- aborting';
+ my ($success, $errmsg) = run command => \@cmd,
+ verbose => 1;
+ unless ($success) {
+ error "$errmsg -- aborting";
return 0;
}
my @cmd = ('emerge', '-C', '=' . $stat->eb_name . '-' . $stat->eb_version);
unshift @cmd, $sudo if $sudo;
- unless (run command => \@cmd, verbose => 1) {
- error 'emerge -C failed -- aborting';
+ my ($success, $errmsg) = run command => \@cmd,
+ verbose => 1;
+ unless ($success) {
+ error "$errmsg -- aborting";
return 0;
}
Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
+You can contact me by mail or on C<irc.perl.org> (vincent).
+
=head1 BUGS
Please report any bugs or feature requests to C<bug-cpanplus-dist-gentoo at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=CPANPLUS-Dist-Gentoo>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.