From e3f3bc8b0988231058fe0c22e140f542106a6e30 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 2 Mar 2004 14:48:40 +0000
Subject: fix modem symlink (#7967)

---
 perl-install/network/modem.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network/modem.pm')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index e790cf83c..4d90f3906 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -51,7 +51,7 @@ sub ppp_configure {
     $in->do_pkgs->install('ppp') if !$::testing;
     $in->do_pkgs->install('kdenetwork-kppp') if !$::testing && $in->do_pkgs->is_installed('kdebase');
 
-    any::devfssymlinkf($modem, 'modem') if $modem->{device} ne "/dev/modem";
+    any::devfssymlinkf($modem->{device}, 'modem') if $modem->{device} ne "/dev/modem";
 
     my %toreplace = map { $_ => $modem->{$_} } qw(Authentication AutoName connection dns1 dns2 domain IPAddr login passwd phone SubnetMask);
     $toreplace{phone} =~ s/[a-zA-Z]//g;
-- 
cgit v1.2.1