From b2a5cf0766b371562ecc68138d28e75a55f8ff46 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 20 Jul 2004 05:57:44 +0000
Subject: (write) do not bother trying to write /etc/menu-methods/lang.h when
 run as a user

---
 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 90f9e2bd4..e140f9be2 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";
+    } "$::prefix/etc/menu-methods/lang.h" if !$<;
 
     eval {
 	my $confdir = $prefix . ($b_user_only ? "$ENV{HOME}/.kde" : '/usr') . '/share/config';
-- 
cgit v1.2.1