summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/modem.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 871019159..c60e1db77 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -18,7 +18,8 @@ sub get_user_home() {
my $home;
if ($ENV{USER} ne "root") {
#- kdesu case
- $home = (find { $_->[0] eq $ENV{USER} } list_passwd())->[7];
+ my $user = find { $_->[0] eq $ENV{USER} } list_passwd();
+ $home = $user->[7] if $user;
}
$home ||= $ENV{HOME}; #- consolehelper case
$home;