summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-01-26 22:27:14 +0000
committerOlivier Blin <oblin@mandriva.org>2004-01-26 22:27:14 +0000
commit53855148fed28b1e37417b7c3da3979e21bbdae4 (patch)
tree19e21869fce540492a3d9c72337beb0b24a2b5f5
parentc9fdb6d4e5b72adba69f81692ee12c2e20366a85 (diff)
downloadurpmi-53855148fed28b1e37417b7c3da3979e21bbdae4.tar
urpmi-53855148fed28b1e37417b7c3da3979e21bbdae4.tar.gz
urpmi-53855148fed28b1e37417b7c3da3979e21bbdae4.tar.bz2
urpmi-53855148fed28b1e37417b7c3da3979e21bbdae4.tar.xz
urpmi-53855148fed28b1e37417b7c3da3979e21bbdae4.zip
perl_checker fixes
-rwxr-xr-xurpmi20
1 files changed, 10 insertions, 10 deletions
diff --git a/urpmi b/urpmi
index 996b5c84..d95cf2cd 100755
--- a/urpmi
+++ b/urpmi
@@ -398,7 +398,7 @@ sub ask_choice {
my (@l) = map { scalar $_->fullname } @$choices;
my $from;
- if (@l > 1 && !$urpm->{options}->{auto}) {
+ if (@l > 1 && !$urpm->{options}{auto}) {
my $msg = (defined $from ?
N("One of the following packages is needed to install %s:", $from) :
N("One of the following packages is needed:"));
@@ -431,7 +431,7 @@ my $restart_itself = $urpm->resolve_dependencies($state, \%requested,
auto_select => $auto_select,
callback_choices => \&ask_choice,
install_src => $install_src,
- keep => $urpm->{options}->{keep},
+ keep => $urpm->{options}{keep},
nodeps => $urpm->{options}{'allow-nodeps'} || $urpm->{options}{'allow-force'},
priority_upgrade => !$test && !$env && $urpm->{options}{'priority-upgrade'},
);
@@ -440,7 +440,7 @@ my @ask_unselect = $urpm->unselected_packages($state);
if (@ask_unselect) {
my $list = join "\n", $urpm->translate_why_unselected($state, sort @ask_unselect);
my $msg = N("Some package requested cannot be installed:\n%s", $list);
- if ($urpm->{options}->{auto}) {
+ if ($urpm->{options}{auto}) {
message($msg, 'noX');
} else {
if ($X) {
@@ -466,7 +466,7 @@ have to be removed for others to be upgraded:\n%s\n", $list);
}
my $msg = N("The following packages have to be removed for others to be upgraded:\n%s", $list);
- if ($urpm->{options}->{auto}) {
+ if ($urpm->{options}{auto}) {
message($msg, 'noX');
} else {
if ($X) {
@@ -511,7 +511,7 @@ if ($env) {
if (@root_only) {
print STDERR N("You need to be root to install the following dependencies:\n%s\n", join ' ', @root_only);
exit 1;
-} elsif (!$urpm->{options}->{auto} && ($ask_user || $X) && @to_install) {
+} elsif (!$urpm->{options}{auto} && ($ask_user || $X) && @to_install) {
my $msg = N("To satisfy dependencies, the following packages are going to be installed (%d MB)", toMb($sum));
my $msg2 = N("Is this OK?");
my $p = join "\n", @to_install;
@@ -544,7 +544,7 @@ my %error_sources;
$urpm->copy_packages_of_removable_media($list, \%sources,
verbose => $verbose > 0,
force_local => 1,
- ask_for_medium => (!$urpm->{options}->{auto} || $allow_medium_change) && sub {
+ ask_for_medium => (!$urpm->{options}{auto} || $allow_medium_change) && sub {
my $msg = N("Please insert the medium named \"%s\" on device [%s]", @_);
my $msg2 = N("Press Enter when ready...");
if ($X) {
@@ -623,7 +623,7 @@ foreach my $set (@{$state->{transaction} || []}) {
my $msg = N("The following packages have bad signatures");
my $msg2 = N("Do you want to continue installation ?");
my $p = join "\n", @bad_signatures;
- if ($urpm->{options}->{auto}) {
+ if ($urpm->{options}{auto}) {
message("$msg:\n$p\n", 'noX');
exit 1;
} else {
@@ -705,7 +705,7 @@ foreach my $set (@{$state->{transaction} || []}) {
callback_inst => $callback_inst, callback_trans => $callback_inst);
if (@l) {
message(N("Installation failed") . ":\n" . join("\n", map { "\t$_" } @l));
- if ($urpm->{options}->{auto} || !$urpm->{options}{'allow-nodeps'} && !$urpm->{options}{'allow-force'}) {
+ if ($urpm->{options}{auto} || !$urpm->{options}{'allow-nodeps'} && !$urpm->{options}{'allow-force'}) {
++$nok;
push @errors, @l;
} else {
@@ -779,7 +779,7 @@ if ($nok) {
message(N("Installation is possible"));
} elsif (@names || @src_names || @files || @src_files || $auto_select) {
@{$state->{transaction} || []} == 0 && @ask_unselect == 0 && $verbose >= 0 and
- message(N("Everything already installed"), $urpm->{options}->{auto});
+ message(N("Everything already installed"), $urpm->{options}{auto});
}
}
@@ -830,7 +830,7 @@ sub log_it {
#- message functions.
sub message {
my ($msg, $noX) = @_;
- if ($X && !$noX && !$urpm->{options}->{auto}) {
+ if ($X && !$noX && !$urpm->{options}{auto}) {
gmessage($msg, ok_only => 1);
$bug and log_it($msg);
} else {