diff options
| -rw-r--r-- | perl-install/network/modem.pm | 3 |
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; |