unshift @configs, $nail;
}
+sub get_dependency_tables ($) {
+ my ($toml) = @_;
+ my @keys = qw(dependencies build-dependencies dev-dependencies);
+ my @r;
+ foreach my $k (@keys) {
+ my $deps = $toml->{$k};
+ push @r, $deps if $deps;
+ }
+ @r;
+}
+
our @alt_cargo_lock_stat;
sub consider_alt_cargo_lock () {
}
foreach my $mf (keys %manifests) {
my $toml = $manifests{$mf};
- foreach my $k (qw(dependencies build-dependencies dev-dependencies)) {
- my $deps = $toml->{$k};
+ foreach my $deps (get_dependency_tables $toml) {
next unless $deps;
foreach my $p (keys %packagemap) {
my $info = $deps->{$p};