From d4502360746cb112d1b266445a223f74af83449f Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Tue, 21 Oct 1997 21:18:19 +0000
Subject: [PATCH] Modified user definition for WIN95.

---
 src/makeBaseApp/makeBaseApp.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl
index 40db931a7..5f5efd71a 100755
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -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};
+    $user=$ENV{USER} || $ENV{USERNAME} || Win32::LoginName();
 
     unless ($user)
     {