+for my $mod (keys %modules) {
+ MODVER: for my $mver (keys %{$modules{$mod}}) {
+ for my $dep (@{$modules{$mod}{$mver}{depends}}) {
+ next unless $dep =~ /^core (.*)/;
+ if (!ver_in_range($installed{core}, $1)) {
+ delete $modules{$mod}{$mver};
+ next MODVER;
+ }
+ }
+ }
+ delete $modules{$mod} unless %{$modules{$mod}};
+}