From 9d7c901939851998fae59eb6151612bc8c87ce9e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 2004 01:23:59 +0000
Subject: cleanup

---
 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 dc13751d1..42d265cd8 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -875,7 +875,7 @@ sub set {
 	#- removing everything
 	#- except in model locale: only removing LC_COLLATE if it is there
 	#eval { rm_rf($_ eq $model_locale ? "$dir/$_/LC_COLLATE" : "$dir/$_") } foreach all($dir);
-	eval { if ($_ ne $model_locale) { rm_rf("$dir/$_"); }; } foreach all($dir);
+	eval { $_ ne $model_locale and rm_rf("$dir/$_") } foreach all($dir);
 	
 	if (!-e "$dir/$model_locale") {
 	    #- getting the model locale
-- 
cgit v1.2.1