Codebase list libextutils-depends-perl / 41f1da5
use hash not list-walk Ed J 3 years ago
1 changed file(s) with 2 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
+2
-1
lib/ExtUtils/Depends.pm less more
229229 sub load_deps {
230230 my $self = shift;
231231 my @load = grep { not $self->{deps}{$_} } keys %{ $self->{deps} };
232 my %in_load; @in_load{@load} = ();
232233 foreach my $d (@load) {
233234 my $dep = load ($d);
234235 $self->{deps}{$d} = $dep;
238239 unless
239240 $self->{deps}{$childdep}
240241 or
241 grep {$_ eq $childdep} @load;
242 exists $in_load{$childdep};
242243 }
243244 }
244245 }