From 85f73df4c0dfcceee215dfe6b3fc5c7fcf0c9ace Mon Sep 17 00:00:00 2001
From: Zhang Qiang <qiang.z.zhang@intel.com>
Date: Thu, 27 Sep 2012 16:13:30 +0800
Subject: [PATCH] Check if getlogin fails use getpwuid($<) instead.

getlogin may return empty string in active directory authentication
system, in this case getpwuid($<) is used instead.

Change-Id: I2bfe65caf0518e4eb187fee5c817355988b78bb5
---
 depanneur | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/depanneur b/depanneur
index 27f2d73..158fdc9 100755
--- a/depanneur
+++ b/depanneur
@@ -44,7 +44,12 @@ use vars qw/*name *dir *prune/;
 *dir    = *File::Find::dir;
 *prune  = *File::Find::prune;
 
-my ($zname, $zpass, $zuid, $zgid, $zquota, $zcomment, $zgcos, $zdir, $zshell, $zexpire) = getpwnam(getlogin());
+my ($zuid, $zgid);
+if (getlogin()) {
+     ($zuid, $zgid) = (getpwnam(getlogin()))[2,3];
+} else {
+     ($zuid, $zgid) = (getpwuid($<))[2,3];
+}
 
 
 use Cwd qw(cwd abs_path);
-- 
2.7.4