From b6a8fceafd44f7354efc7b7b27db48204e051317 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Jun 2000 16:50:39 +0000
Subject: no_comment

---
 perl-install/standalone/drakboot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/drakboot')

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 912869938..a1c252f3c 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -32,7 +32,7 @@ while (my ($k, $v) = each %l) {
     foreach (@$v) {
 	-x $_ and $l{$k} = $_, last;
     }
-    -x $l{$k} or delete $l{$_};
+    -x $l{$k} or delete $l{$k};
 }
 
 if ($ENV{DISPLAY} && c::Xtest($ENV{DISPLAY})) {
-- 
cgit v1.2.1