diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-11-21 14:54:13 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-11-21 14:54:13 +0000 |
| commit | 015127ef9c0b88d0947f19859e70d186e19c7054 (patch) | |
| tree | c421aa03b4b8ae91bc78d74fd2cac22858631b45 /perl-install/pkgs.pm | |
| parent | 3f6a000740725db9ca16dc9a61ce59d4ffaee227 (diff) | |
| download | drakx-backup-do-not-use-015127ef9c0b88d0947f19859e70d186e19c7054.tar drakx-backup-do-not-use-015127ef9c0b88d0947f19859e70d186e19c7054.tar.gz drakx-backup-do-not-use-015127ef9c0b88d0947f19859e70d186e19c7054.tar.bz2 drakx-backup-do-not-use-015127ef9c0b88d0947f19859e70d186e19c7054.tar.xz drakx-backup-do-not-use-015127ef9c0b88d0947f19859e70d186e19c7054.zip | |
fix rpmsrate negations when not installing a live system
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 495d12acd..ea11a0455 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -634,13 +634,13 @@ sub read_rpmsrate { my $inv = s/^!//; $inv xor do { if (my ($p) = /^HW"(.*)"/) { - return $inv ^ $::o->{build_live_system} || detect_devices::matching_desc__regexp($p); + return $::o->{build_live_system} ? !$inv : detect_devices::matching_desc__regexp($p); } elsif (($p) = /^HW_CAT"(.*)"/) { - return $inv ^ $::o->{build_live_system} || modules::probe_category($p); + return $::o->{build_live_system} ? !$inv : modules::probe_category($p); } elsif (($p) = /^DRIVER"(.*)"/) { - return $inv ^ $::o->{build_live_system} || detect_devices::matching_driver__regexp($p); + return $::o->{build_live_system} ? !$inv : detect_devices::matching_driver__regexp($p); } elsif (($p) = /^TYPE"(.*)"/) { - return $inv ^ $::o->{build_live_system} || detect_devices::matching_type($p); + return $::o->{build_live_system} ? !$inv : detect_devices::matching_type($p); } else { $rpmsrate_flags_chosen->{$_}; } |