From 5dc2ce1b3acaf12ac93da09c5f0bb000c1a543e8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 16 Mar 2004 09:22:04 +0000 Subject: (ppp_configure) really fix modem symlink (#7967) --- perl-install/network/modem.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm index 4d90f3906..e790cf83c 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->{device}, 'modem') if $modem->{device} ne "/dev/modem"; + any::devfssymlinkf($modem, '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