From b442d9fc968a3bd52e64d607dcc1f1ca829aeebb Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 5 Jan 2000 19:29:33 +0000
Subject: *** empty log message ***

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

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 00dda26e4..36d6b2eca 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -562,7 +562,7 @@ sub update_userkderc($$$) {
 		if (/^\s*(\w*)=/ && $tosubst{lc($1)}) {
 		    delete $tosubst{lc($1)};
 		} else {
-		    ($i > 1 && /^\s*\[/ && join '', values %tosubst). $_;
+		    ($i > 1 && /^\s*\[/ && join '', map { delete $tosubst{$_} } keys %tosubst). $_;
 		}
 	    } else {
 		$_;
-- 
cgit v1.2.1