diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-05-24 02:11:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-05-24 02:11:51 +0000 |
| commit | 99f66758167609644786cb299f74fa4dea9b9881 (patch) | |
| tree | ab1b591248fd733c1059c7b7b1c4a456e1697aa2 | |
| parent | 1d81e88e87718282ac04ddbd4ebfd425b5290153 (diff) | |
| download | drakx-99f66758167609644786cb299f74fa4dea9b9881.tar drakx-99f66758167609644786cb299f74fa4dea9b9881.tar.gz drakx-99f66758167609644786cb299f74fa4dea9b9881.tar.bz2 drakx-99f66758167609644786cb299f74fa4dea9b9881.tar.xz drakx-99f66758167609644786cb299f74fa4dea9b9881.zip | |
ensure {needToCopy} is not dropped when calling read_rpmsrate() more than once
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 66ebda3ca..8106be9e5 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -657,7 +657,7 @@ sub read_rpmsrate { $p->set_rate($rates->{$_}); $p->set_rflags(member('FALSE', @flags) ? 'FALSE' : @flags); } - $packages->{needToCopy} = $need_to_copy; + push @{$packages->{needToCopy} ||= []}, @$need_to_copy; } sub readCompssUsers { |