From 268207c62bd77db4d8a63b70c616b09ceb535446 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 17 Mar 2001 17:27:42 +0000
Subject: (write_langs): in case of empty %_install_langs, don't write it

---
 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 45e3720f2..9dbeeb4cd 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -345,7 +345,7 @@ sub write_langs {
     my ($prefix, $langs) = @_;
     my $s = pack_langs($langs);
     symlink "$prefix/etc/rpm", "/etc/rpm" if $prefix;
-    substInFile { s/%_install_langs.*//; $_ .= "%_install_langs $s\n" if eof } "$prefix/etc/rpm/macros";
+    substInFile { s/%_install_langs.*//; $_ .= "%_install_langs $s\n" if eof && $s } "$prefix/etc/rpm/macros";
 }
 
 sub write { 
-- 
cgit v1.2.1