add LOGNAME when looking for user

This commit is contained in:
Marty Kraimer
1998-04-03 16:08:19 +00:00
parent f47bf2c9e0
commit 9e10969c81

View File

@@ -219,7 +219,7 @@ sub GetUser # no args
# add to this list if new possibilities arise,
# currently it's UNIX and WIN32:
$user=$ENV{USER} || $ENV{USERNAME} || Win32::LoginName();
$user=$ENV{USER} || $ENV{USERNAME} || $ENV{LOGNAME} || Win32::LoginName();
unless ($user)
{