- my @deps = do {
- my %seen;
- sort grep !$seen{$_}++, 'dev-lang/perl',
- map $self->_cpan2portage(@$_), @{$stat->deps}
- };
+ my @deps;
+ for (@{$stat->deps}) {
+ my $dep = $self->_cpan2portage(@$_);
+ unless (defined $dep) {
+ $self->_abort(
+ "Couldn't find an appropriate ebuild for $_->[0] in the portage tree"
+ );
+ return;
+ }
+ push @deps, $dep;
+ }
+
+ @deps = do { my %seen; sort grep !$seen{$_}++, 'dev-lang/perl', @deps };