summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 0cf943425..906b3d2f4 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -942,16 +942,17 @@ sub report_bug {
sub devfssymlinkf {
my ($o_if, $of, $prefix) = @_;
+ my $if = $o_if->{device};
- my $if = $o_if->{devfs_device};
- $if ||= devices::to_devfs($o_if->{device});
- $if ||= $o_if->{device};
+ my $devfs_if = $o_if->{devfs_device};
+ $devsfs_if ||= devices::to_devfs($o_if->{device});
+ $devsfs_if ||= $o_if->{device};
symlinkf($if, "$prefix/dev/$of");
output_p("$prefix/etc/devfs/conf.d/$of.conf",
-"REGISTER ^$if\$ CFUNCTION GLOBAL symlink $if $of
-UNREGISTER ^$if\$ CFUNCTION GLOBAL unlink $of
+"REGISTER ^$devfs_if\$ CFUNCTION GLOBAL symlink $devfs_if $of
+UNREGISTER ^$devfs_if\$ CFUNCTION GLOBAL unlink $of
");
}