}
my %gentooism = (
+ 'Crypt-RSA' => 'crypt-rsa',
'Digest' => 'digest-base',
'Locale-Maketext' => 'locale-maketext',
+ 'Math-Pari' => 'math-pari',
'Net-Ping' => 'net-ping',
'PathTools' => 'File-Spec',
'PodParser' => 'Pod-Parser',
'Set-Scalar' => 'set-scalar',
'Tie-EncryptedHash' => 'tie-encryptedhash',
+ 'YAML' => 'yaml',
);
sub prepare {
my %opts = @_;
+ $stat->prepared(0);
+
my $keywords = delete $opts{'keywords'};
$keywords = 'x86' unless defined $keywords;
$keywords = [ split ' ', $keywords ];
$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)/;
}
$stat->deps(\@depends);
+ $stat->prepared(1);
return 1;
}
unless ($stat->prepared) {
error 'Can\'t create ' . $stat->dist . ' since it was never prepared -- aborting';
+ $stat->created(0);
return 0;
}
return 1;
}
+ $stat->created(0);
+
$self->SUPER::create(@_);
my $dir = $stat->eb_dir;
'dev-lang/perl',
map {
my $a = $_->[0]->package_name;
+ $a = $gentooism{$a} || $a;
my $x = '';
if (defined $_->[1]) {
$x = '>=';
}
}
+ $stat->created(1);
return 1;
}