From 2b5daa0e9fdb42bb52337bf3a3fbfb63ae6df128 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
Date: Wed, 18 Jun 2014 16:16:58 +0200
Subject: (get_dynamic_major) kill it now it's unused

---
 perl-install/devices.pm | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index f1764fee2..f06168c1d 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -52,11 +52,6 @@ sub find_compressed_image {
     undef;
 }
 
-sub get_dynamic_major {
-    my ($name) = @_;
-    cat_('/proc/devices') =~ /^(\d+) \Q$name\E$/m && $1;
-}
-
 sub init_device_mapper() {
     require modules;
     eval { modules::load('dm-mod') };
-- 
cgit v1.2.1