summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-19 21:41:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-19 21:41:13 +0000
commitd141fffba18db4fc5a70785b4a5ade34b6d4d78c (patch)
tree06a0242ad62d42ad1dbaa3f73ba18470415b0a9f /perl-install/any.pm
parent7888165dad1d6e8dd937a67d0eac461471002e6a (diff)
downloaddrakx-backup-do-not-use-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar
drakx-backup-do-not-use-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar.gz
drakx-backup-do-not-use-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar.bz2
drakx-backup-do-not-use-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar.xz
drakx-backup-do-not-use-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.zip
(devfssymlinkf): try devices::to_devfs when devfs_device is not provided
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm6
1 files changed, 5 insertions, 1 deletions
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",