From 329701ba075af74ae6d7f857f62c35c942c24486 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
Date: Wed, 18 Jun 2014 14:37:41 +0200
Subject: do not even try to create basic /dev nodes

Those should be handled by udev.
Live install should be tested as some were added for it.
---
 perl-install/NEWS         |  2 ++
 perl-install/devices.pm   | 24 ------------------------
 perl-install/install/NEWS |  2 ++
 3 files changed, 4 insertions(+), 24 deletions(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 6b6dc4cfc..a2c7a32b8 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- stop creating some /dev entries that are managed by udev
+
 Version 16.32 - 15 June 2014
 
 - recognize new kernel-3.15 drivers
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 2649631bb..48d661644 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -86,17 +86,8 @@ sub entry {
     } elsif (my ($prefix, $nb) = /(.*?)(\d+)$/) {	
 	my $f = ${{"fd"          => sub { c::S_IFBLK(), 2,  0  },
 		   "hidbp-mse-"  => sub { c::S_IFCHR(), 10, 32 },
-		   "lp"          => sub { c::S_IFCHR(), 6,  0  },
-		   "usb/lp"      => sub { c::S_IFCHR(), 180, 0 },
-		   "input/event" => sub { c::S_IFCHR(), 13, 64 },
-		   "loop"        => sub { c::S_IFBLK(), 7,  0  },
-		   "md"          => sub { c::S_IFBLK(), 9,  0  },
 		   "nst"         => sub { c::S_IFCHR(), 9, 128 },
-		   "sr"          => sub { c::S_IFBLK(), 11, 0  },
-		   "tty"         => sub { c::S_IFCHR(), 4,  0  },
-		   "ttyS"        => sub { c::S_IFCHR(), 4, 64  },
 		   "ubd/"        => sub { c::S_IFBLK(), 98, 0  },
-		   "dm-"         => sub { c::S_IFBLK(), get_dynamic_major('device-mapper'), 0 },
 	       }}{$prefix};
 	if ($f) {
 	    ($type, $major, $minor) = $f->();
@@ -113,25 +104,10 @@ sub entry {
 		   "gscd"     => [ c::S_IFBLK(), 16, 0  ],
 		   "mcd"      => [ c::S_IFBLK(), 23, 0  ],
 		   "mcdx"     => [ c::S_IFBLK(), 20, 0  ],
-		   "mem"      => [ c::S_IFCHR(), 1,  1  ],
 		   "optcd"    => [ c::S_IFBLK(), 17, 0  ],
-		   "kbd"      => [ c::S_IFCHR(), 11, 0  ],
-		   "psaux"    => [ c::S_IFCHR(), 10, 1  ],
 		   "atibm"    => [ c::S_IFCHR(), 10, 3  ],
-		   "random"   => [ c::S_IFCHR(), 1,  8  ],
 		   "sbpcd"    => [ c::S_IFBLK(), 25, 0  ],
 		   "sjcd"     => [ c::S_IFBLK(), 18, 0  ],
-		   "tty"      => [ c::S_IFCHR(),  5, 0  ],
-		   "input/mice"
-		              => [ c::S_IFCHR(), 13, 63 ],
-		   "vcsa"     => [ c::S_IFCHR(), 7,  128 ],
-		   "zero"     => [ c::S_IFCHR(), 1,  5  ],		     
-		   "null"     => [ c::S_IFCHR(), 1,  3  ],		     
-
-		   "initrd"   => [ c::S_IFBLK(), 1,  250 ],
-		   "console"  => [ c::S_IFCHR(), 5,  1  ],
-		   "systty"   => [ c::S_IFCHR(), 4,  0  ],
-		   "lvm"   =>    [ c::S_IFBLK(), 109, 0 ],
 	       }}{$_} || [] };
     }
     # Lookup non listed devices in /sys
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index ec8727a20..62b967c81 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- stop creating some /dev entries that are managed by udev
+
 Version 16.32 - 15 June 2014
 
 - include platform driver autoload udev rules
-- 
cgit v1.2.1