From fafa7b82d182c93045da035bd99e9c1dc6959540 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 20 Jul 2004 06:23:04 +0000
Subject: (write) better check parameter rather than EUID

---
 perl-install/lang.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index e140f9be2..aa228b5f7 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1011,7 +1011,7 @@ sub write {
     setVarsInSh($prefix . ($b_user_only ? "$ENV{HOME}/.i18n" : '/etc/sysconfig/i18n'), $h);
     substInFile {
         s!^function lang\b.*!function lang()="$h->{LANG}"!g;
-    } "$::prefix/etc/menu-methods/lang.h" if !$<;
+    } "$::prefix/etc/menu-methods/lang.h" if !$b_user_only;
 
     eval {
 	my $confdir = $prefix . ($b_user_only ? "$ENV{HOME}/.kde" : '/usr') . '/share/config';
-- 
cgit v1.2.1