From 38650277720dbde63cdbfff76c0cd89851a1e21e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 20 Aug 2004 08:40:15 +0000
Subject: (read_rpmsrate) support the TYPE keyword, using
 detect_devices::matching_type()

---
 perl-install/pkgs.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ade4353d3..c94985fc2 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -536,6 +536,9 @@ sub read_rpmsrate {
                 } elsif (($inv, $p) = /^(!)?DRIVER"(.*)"/) {
 		    ($inv xor detect_devices::matching_driver($p)) and $ok = 1;
 		    0;
+                } elsif (($inv, $p) = /^(!)?TYPE"(.*)"/) {
+		    ($inv xor detect_devices::matching_type($p)) and $ok = 1;
+		    0;
 		} else {
 		    1;
 		}
-- 
cgit v1.2.1