From a3925cf8715529397f7ffec7f5818ba5df477a51 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 17 Sep 2012 10:29:33 +0000
Subject: (raw) rename $user as $uid as it really what it is

(preparing for next commit)

(backported from trunk)
---
 perl-install/run_program.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 7c0ba92c7..fbc721d82 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -57,11 +57,11 @@ sub raw {
 
     my $home;
     if ($options->{as_user}) {
-        my $user;
-        $user = $ENV{USERHELPER_UID} && getpwuid($ENV{USERHELPER_UID});
-        $user ||= common::get_parent_uid();
-        $options->{setuid} = getpwnam($user) if $user;
-        $home = $user->[7] if $user;
+        my $uid;
+        $uid = $ENV{USERHELPER_UID} && getpwuid($ENV{USERHELPER_UID});
+        $uid ||= common::get_parent_uid();
+        $options->{setuid} = getpwnam($uid) if $uid;
+        $home = $uid->[7] if $uid;
     }
     local $ENV{HOME} = $home if $home;
 
-- 
cgit v1.2.1