diff options
author | Guillaume Cottenceau <gc@mandriva.com> | 2004-01-13 13:12:12 +0000 |
---|---|---|
committer | Guillaume Cottenceau <gc@mandriva.com> | 2004-01-13 13:12:12 +0000 |
commit | f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b (patch) | |
tree | 4f4f6313515e27d19dcdc352abff04c6f97a4ab4 | |
parent | 0d0b1ff09529f3efc839b14ff4a858ee3ac310bd (diff) | |
download | drakx-backup-do-not-use-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar drakx-backup-do-not-use-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar.gz drakx-backup-do-not-use-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar.bz2 drakx-backup-do-not-use-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar.xz drakx-backup-do-not-use-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.zip |
perl check
-rw-r--r-- | perl-install/pkgs.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 745ae9367..ad54e7e39 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -484,11 +484,12 @@ sub read_rpmsrate { ($t, $flag, $data) = ($1,$2,$3); while ($flag =~ s,^\s*(("[^"]*"|[^"\s]*)*)\s+,$1,) {} my $ok = 0; + my ($inv, $p); $flag = join('||', grep { - if (my ($inv, $p) = /^(!)?HW"(.*)"/) { + if (($inv, $p) = /^(!)?HW"(.*)"/) { ($inv xor detect_devices::matching_desc($p)) and $ok = 1; 0; - } elsif (my ($inv, $p) = /^(!)?DRIVER"(.*)"/) { + } elsif (($inv, $p) = /^(!)?DRIVER"(.*)"/) { ($inv xor detect_devices::matching_driver($p)) and $ok = 1; 0; } else { |