From 157a01642c2a988c3308d7d3dd0f8ba36a0cf641 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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(+) (limited to 'perl-install') 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