summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakboot
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-06-28 16:50:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-06-28 16:50:39 +0000
commitb6a8fceafd44f7354efc7b7b27db48204e051317 (patch)
treee579bbc5441d9905f91880e5d68440a70802b2f4 /perl-install/standalone/drakboot
parentf02e76ad7ed01ce6f02ed576c13dd74fc69cdef6 (diff)
downloaddrakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar
drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar.gz
drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar.bz2
drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.tar.xz
drakx-backup-do-not-use-b6a8fceafd44f7354efc7b7b27db48204e051317.zip
no_comment
Diffstat (limited to 'perl-install/standalone/drakboot')
-rwxr-xr-xperl-install/standalone/drakboot2
1 files changed, 1 insertions, 1 deletions
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})) {