From d7845ac2fcec5db5dc4c6e4a40ad516aa2ef531f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 11 Dec 2000 14:29:02 +0000
Subject: fixed write_langs for upgrade.

---
 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 5e5e3af42..4154ee5d6 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -312,7 +312,7 @@ sub unpack_langs {
 sub write_langs {
     my ($prefix, $langs) = @_;
     symlink "$prefix/etc/rpm", "/etc/rpm" if $prefix;
-    substInFile { s/%_install_langs//; $_ .= "%_install_langs $langs\n" if eof } "$prefix/etc/rpm/macros";
+    substInFile { s/%_install_langs.*//; $_ .= "%_install_langs $langs\n" if eof } "$prefix/etc/rpm/macros";
 }
 
 sub write { 
-- 
cgit v1.2.1