diff options
| -rw-r--r-- | urpm/args.pm | 1 | ||||
| -rw-r--r-- | urpm/main_loop.pm | 2 | ||||
| -rwxr-xr-x | urpmi | 4 |
3 files changed, 5 insertions, 2 deletions
diff --git a/urpm/args.pm b/urpm/args.pm index 47dbb1e2..69a8dd51 100644 --- a/urpm/args.pm +++ b/urpm/args.pm @@ -137,6 +137,7 @@ my %options_spec = ( 'strict-arch!' => sub { $urpm->{options}{'strict-arch'} = $_[1] }, 'norebuild!' => sub { $urpm->{options}{'build-hdlist-on-error'} = !$_[1] }, 'test!' => \$::test, + 'debug__do_not_install' => \$options{debug__do_not_install}, 'skip=s' => \$options{skip}, 'prefer=s' => \$options{prefer}, 'root=s' => sub { set_root($urpm, $_[1]) }, diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm index c0d7e25c..f746f9b0 100644 --- a/urpm/main_loop.pm +++ b/urpm/main_loop.pm @@ -63,6 +63,8 @@ urpm::install::build_transaction_set_($urpm, $state, split_level => $urpm->{options}{'split-level'}, split_length => !$test && $urpm->{options}{'split-length'}); +$options{debug__do_not_install} and exit 0; + my ($ok, $nok) = (0, 0); my @errors; @@ -263,7 +263,7 @@ if ($env) { $urpm->{prefer_vendor_list} = "$env/prefer.vendor.list"; $urpm->{statedir} = $env; } else { - if ($< != 0) { + if ($< != 0 && !$options{debug__do_not_install}) { #- need to be root if binary rpms are to be installed $auto_select || @names || @files and $urpm->{fatal}(1, N("Only superuser is allowed to install packages")); } @@ -595,7 +595,7 @@ foreach my $pkg (sort { $a->name cmp $b->name } @{$urpm->{depslist}}[keys %{$sta } } $urpm->{nb_install} = @to_install; -if ($env) { +if ($env && !$options{debug__do_not_install}) { my $msg = $urpm->{nb_install} == 1 ? N("To satisfy dependencies, the following package is going to be installed:") : N("To satisfy dependencies, the following packages are going to be installed:"); my $msg2 = P("(%d package, %d MB)", "(%d packages, %d MB)", $urpm->{nb_install}, $urpm->{nb_install}, toMb($sum)); |