From 75bbbb30528e9efa7759c1590ad8fcdbdd85148e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 18 Aug 2008 15:01:56 +0000 Subject: remove useless isStandalone checks (we already check isInstall in one case, and the return values won't hurt) --- perl-install/pkgs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index be139d6c5..845c2aa58 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -132,12 +132,12 @@ sub read_rpmsrate { if ($::isInstall) { $p->set_rate($rates->{$_}); $p->set_rflags(member('FALSE', @flags) ? 'FALSE' : @flags); - } elsif ($::isStandalone) { + } else { $flags->{$_} = \@flags; } } push @{$packages->{needToCopy} ||= []}, @$need_to_copy if ref($packages); - return ($rates, $flags) if $::isStandalone; + return ($rates, $flags); } -- cgit v1.2.1