summaryrefslogtreecommitdiffstats
path: root/urpm.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-11-09 21:36:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-11-09 21:36:05 +0000
commit8d966f041c59a701cf9dfdd46fe6f4240fb1edda (patch)
tree70703f7e020954a95a36160c52560ace633d2a1c /urpm.pm
parentb24f6fd844bc9d3bdb01d1bdf5886e37ce146633 (diff)
downloadurpmi-8d966f041c59a701cf9dfdd46fe6f4240fb1edda.tar
urpmi-8d966f041c59a701cf9dfdd46fe6f4240fb1edda.tar.gz
urpmi-8d966f041c59a701cf9dfdd46fe6f4240fb1edda.tar.bz2
urpmi-8d966f041c59a701cf9dfdd46fe6f4240fb1edda.tar.xz
urpmi-8d966f041c59a701cf9dfdd46fe6f4240fb1edda.zip
simplify
Diffstat (limited to 'urpm.pm')
-rw-r--r--urpm.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/urpm.pm b/urpm.pm
index ae163fc4..c4b0a608 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -3049,7 +3049,7 @@ sub install {
$options{callback_open} ||= sub {
my ($_data, $_type, $id) = @_;
$fh = $urpm->open_safe('<', $install->{$id} || $upgrade->{$id});
- return defined $fh ? fileno $fh : undef;
+ $fh ? fileno $fh : undef;
};
$options{callback_close} ||= sub {
my ($urpm, undef, $pkgid) = @_;
@@ -3295,9 +3295,10 @@ sub removed_packages {
sub translate_why_removed {
my ($urpm, $state, @l) = @_;
map {
- my ($from) = keys %{$state->{rejected}{$_}{closure}};
- my ($whyk) = keys %{$state->{rejected}{$_}{closure}{$from}};
- my $whyv = $state->{rejected}{$_}{closure}{$from}{$whyk};
+ my $closure = $state->{rejected}{$_}{closure};
+ my ($from) = keys %$closure;
+ my ($whyk) = keys %{$closure->{$from}};
+ my $whyv = $closure->{$from}{$whyk};
my $frompkg = $urpm->search($from, strict_fullname => 1);
my $s;
for ($whyk) {