From 157a01642c2a988c3308d7d3dd0f8ba36a0cf641 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 21:34:15 +0000
Subject: (devfssymlinkf): when creating a symlink on the system, use devfs
 name if devfs is mounted

---
 perl-install/any.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 5500f9766..fbafd4da0 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -943,6 +943,9 @@ sub devfssymlinkf {
     $devfs_if ||= devices::to_devfs($o_if->{device});
     $devfs_if ||= $o_if->{device};
 
+    #- when creating a symlink on the system, use devfs name if devfs is mounted
+    $if = $devfs_if if !$prefix && detect_devices::dev_is_devfs();
+
     symlinkf($if, "$prefix/dev/$of");
 
     output_p("$prefix/etc/devfs/conf.d/$of.conf", 
-- 
cgit v1.2.1