From d141fffba18db4fc5a70785b4a5ade34b6d4d78c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 19 Jul 2002 21:41:13 +0000
Subject: (devfssymlinkf): try devices::to_devfs when devfs_device is not
 provided

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

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 7d94bc826..5bb72c94b 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -944,7 +944,11 @@ sub report_bug {
 
 sub devfssymlinkf {
     my ($o_if, $of, $prefix) = @_;
-    my $if = $o_if->{devfs_device} || $o_if->{device};
+
+    my $if = $o_if->{devfs_device};
+    $if ||= devices::to_devfs($o_if->{device});
+    $if ||= $o_if->{device};
+
     symlinkf($if, "$prefix/dev/$of");
 
     output_p("$prefix/etc/devfs/conf.d/$of.conf", 
-- 
cgit v1.2.1