summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2004-01-13 13:12:12 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2004-01-13 13:12:12 +0000
commitf06c4fbb7cd4c1f942cbc27d1b5067572e58a39b (patch)
tree4f4f6313515e27d19dcdc352abff04c6f97a4ab4 /perl-install
parent0d0b1ff09529f3efc839b14ff4a858ee3ac310bd (diff)
downloaddrakx-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar
drakx-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar.gz
drakx-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar.bz2
drakx-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.tar.xz
drakx-f06c4fbb7cd4c1f942cbc27d1b5067572e58a39b.zip
perl check
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm5
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 {