diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-22 17:27:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-22 17:27:57 +0000 |
| commit | d364fb888f95500ffd73d6b875900829e3623f1c (patch) | |
| tree | f60763cb1eccfe6658fdbef1d0b7c2ff878c465c /perl-install/pkgs.pm | |
| parent | 42f58e5dfdec95e2d9348744168f7e75076baa65 (diff) | |
| download | drakx-backup-do-not-use-d364fb888f95500ffd73d6b875900829e3623f1c.tar drakx-backup-do-not-use-d364fb888f95500ffd73d6b875900829e3623f1c.tar.gz drakx-backup-do-not-use-d364fb888f95500ffd73d6b875900829e3623f1c.tar.bz2 drakx-backup-do-not-use-d364fb888f95500ffd73d6b875900829e3623f1c.tar.xz drakx-backup-do-not-use-d364fb888f95500ffd73d6b875900829e3623f1c.zip | |
fix previous commit
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index e51d4f9bf..79faf1783 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -576,14 +576,15 @@ sub read_rpmsrate_raw { if (member('PRINTER', @$flags)) { push @need_to_copy, $name; } + my @new_flags = @$flags; if (my $previous = $flags{$name}) { my @common = intersection($flags, $previous); my @diff1 = difference2($flags, \@common); my @diff2 = difference2($previous, \@common); if (!@diff1 || !@diff2) { - @$flags = @common; + @new_flags = @common; } elsif (@diff1 == 1 && @diff2 == 1) { - @$flags = (@common, join('||', $diff1[0], $diff2[0])); + @new_flags = (@common, join('||', $diff1[0], $diff2[0])); } else { log::l("can not handle complicate flags for packages appearing twice ($name)"); $fatal_error++; @@ -591,7 +592,7 @@ sub read_rpmsrate_raw { log::l("package $name appearing twice with different rates ($rate != " . $rates{$name} . ")") if $rate != $rates{$name}; } $rates{$name} = $rate; - $flags{$name} = $flags; + $flags{$name} = \@new_flags; } push @l, @l2; } else { |