From 0c005d9245864e3a4fc24431844843be47885400 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
Date: Wed, 18 Jun 2014 15:31:54 +0200
Subject: kill support for obsolete CD drivers

those were killed in 2007
see https://git.kernel.org/cgit/linux/kernel/git/torvalds/linux.git/commit/drivers/cdrom?id=f3f541f9ded9dd37edca103dd3be49bfbd9e730d
---
 perl-install/devices.pm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 48d661644..709d9da06 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -96,18 +96,8 @@ sub entry {
     }
     unless ($type) {
 	($type, $major, $minor) =
-	     @{ ${{"aztcd"    => [ c::S_IFBLK(), 29, 0  ],
-		   "bpcd"     => [ c::S_IFBLK(), 41, 0  ],
-		   "cdu31a"   => [ c::S_IFBLK(), 15, 0  ],
-		   "cdu535"   => [ c::S_IFBLK(), 24, 0  ],
-		   "cm206cd"  => [ c::S_IFBLK(), 32, 0  ],
-		   "gscd"     => [ c::S_IFBLK(), 16, 0  ],
-		   "mcd"      => [ c::S_IFBLK(), 23, 0  ],
-		   "mcdx"     => [ c::S_IFBLK(), 20, 0  ],
-		   "optcd"    => [ c::S_IFBLK(), 17, 0  ],
+	     @{ ${{
 		   "atibm"    => [ c::S_IFCHR(), 10, 3  ],
-		   "sbpcd"    => [ c::S_IFBLK(), 25, 0  ],
-		   "sjcd"     => [ c::S_IFBLK(), 18, 0  ],
 	       }}{$_} || [] };
     }
     # Lookup non listed devices in /sys
-- 
cgit v1.2.1