my %options =
(# flags
+ simulate => { flag => \$simulate }, # this is not supported by all operations (yet)!
verbose => { short => "v", flag => \$verbose },
override => { short => "o", flag => \$opt_override },
"create-db" => { flag => \$opt_create_db },
# call with installed-packages+ . installed-sources+ [ . available-for-build-packages+ ]
# in case available-for-build-packages is not specified, installed-packages are used
lock_table() unless $simulate;
+ my $replacemap = { '%ARCH%' => $arch, '%SUITE%' => $distribution };
+ map { my $k = $_; grep { $k =~ s,$_,$replacemap->{$_}, } keys %{$replacemap}; $_ = $k; } @ARGV;
my @ipkgs = &parse_argv( \@ARGV, '.');
my @isrcs = &parse_argv( \@ARGV, '.');
my @bpkgs = &parse_argv( \@ARGV, '.');
}
if ($change) {
log_ta( $pkg, "--merge-all (edos)" ) unless $simulate;
- print "edos-builddebchange changed state of ${key}_$pkg->{'version'} to $pkg->{'state'}\n" if $verbose || $simulate;
+ print "edos-builddebchange changed state of ${key}_$pkg->{'version'} ($args->{'arch'}) to $pkg->{'state'}\n" if $verbose || $simulate;
}
if ($change || $problemchange) {
update_source_info($pkg) unless $simulate;
for my $key (keys %interesting_packages_depwait) {
if ($interesting_packages_depwait{$key}) {
- print "dependency on $key not fullfiled yet\n" if $verbose || $simulate;
+ print "dep-wait for $key ($args->{'arch'}) not fullfiled yet\n" if $verbose || $simulate;
next;
}
my $pkg = $db->{$key};
}
log_ta( $pkg, "edos_depcheck: depwait" ) unless $simulate;
update_source_info($pkg) unless $simulate;
- print "edos-builddebchange changed state of ${key}_$pkg->{'version'} to $pkg->{'state'}\n" if $verbose || $simulate;
+ print "edos-builddebchange changed state of ${key}_$pkg->{'version'} ($args->{'arch'}) from dep-wait to $pkg->{'state'}\n" if $verbose || $simulate;
}
}
next SRCS;
}
}
+ $pkg->{'package'} = $name;
}
if ($pkgs->{'status'} eq 'installed' && $pkg->{'binary_nmu_version'} && $pkgs->{'binnmu'} < $pkg->{'binary_nmu_version'}) {