From 991b117fa96757b706c5a4c7fc6db42b8dc55636 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 8 Sep 2005 13:03:58 +0000 Subject: really read system kppp configuration (happy birthday little bug) --- 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 838224f85..9b0a9c3f3 100644 --- a/perl-install/network/modem.pm +++ b/perl-install/network/modem.pm @@ -22,7 +22,7 @@ sub get_user_home() { sub ppp_read_conf() { my $modem = {}; my %l = getVarsFromSh(get_user_home() . "/.kde/share/config/kppprc"); - add2hash(\%l, getVarsFromSh("$::prefix/usr/share/config/kppprc")); + add2hash(\%l, { getVarsFromSh("$::prefix/usr/share/config/kppprc") }); $l{Authentication} = 4 if $l{Authentication} !~ /\d/; $modem->{$_} ||= $l{$_} foreach qw(Authentication Gateway IPAddr SubnetMask); $modem->{connection} ||= $l{Name}; -- cgit v1.2.1