diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-19 21:41:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-19 21:41:13 +0000 |
| commit | d141fffba18db4fc5a70785b4a5ade34b6d4d78c (patch) | |
| tree | 06a0242ad62d42ad1dbaa3f73ba18470415b0a9f | |
| parent | 7888165dad1d6e8dd937a67d0eac461471002e6a (diff) | |
| download | drakx-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar drakx-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar.gz drakx-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar.bz2 drakx-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.tar.xz drakx-d141fffba18db4fc5a70785b4a5ade34b6d4d78c.zip | |
(devfssymlinkf): try devices::to_devfs when devfs_device is not provided
| -rw-r--r-- | perl-install/any.pm | 6 |
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", |