From 2e185993a85ba4934cc25b852124214072077b4c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 8 Jan 2003 16:21:58 +0000
Subject: added install_addons to install pcitable or usbtable addons.

---
 perl-install/detect_devices.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index aaf375b86..975ccb8b1 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -417,6 +417,18 @@ $usbtable_addons = <<'EOF';
 # add here lines conforming the usbtable format (0xXXXX\t0xXXXX\t"\w+"\t".*")
 EOF
 
+sub install_addons {
+    my ($prefix) = @_;
+
+    if (-d $prefix) {
+	foreach ([ 'pcitable.d', $pcitable_addons ], [ 'usbtable.d', $usbtable_addons ]) {
+	    my ($dir, $str) = @$_;
+	    -d "$prefix/$dir" && $str =~ /^[^#]/m and
+	      output "$prefix/$dir/95drakx.lst", $str;
+	}
+    }
+}
+
 sub add_addons {
     my ($addons, @l) = @_;
 
-- 
cgit v1.2.1