From 11558863c9d6cba47258fc2917d64ccc46864cad Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 25 Jun 2004 05:37:41 +0000
Subject: drop obsolete function

---
 perl-install/bootloader.pm | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index ac55b1edb..6233ad53c 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -463,14 +463,6 @@ sub configure_entry {
     }
 }
 
-sub dev2prompath { #- SPARC only
-    my ($dev) = @_;
-    my ($wd, $num) = $dev =~ /^(.*\D)(\d*)$/;
-    require c;
-    $dev = c::disk2PromPath($wd) and $dev = $dev =~ /^sd\(/ ? "$dev$num" : "$dev;$num";
-    $dev;
-}
-
 sub get_kernels_and_labels {
     my ($b_prefer_24) = @_;
 
-- 
cgit v1.2.1