summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-25 10:31:09 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-25 10:31:09 +0000
commit0bd79758c007682b3167c4559018edd4cd176bd8 (patch)
treeb98e509b2da13c46654512304b601e4e3f7bd910 /perl-install/standalone
parent7a759bccdc48194e516e6d742cdbaa46f64a0571 (diff)
downloaddrakx-backup-do-not-use-0bd79758c007682b3167c4559018edd4cd176bd8.tar
drakx-backup-do-not-use-0bd79758c007682b3167c4559018edd4cd176bd8.tar.gz
drakx-backup-do-not-use-0bd79758c007682b3167c4559018edd4cd176bd8.tar.bz2
drakx-backup-do-not-use-0bd79758c007682b3167c4559018edd4cd176bd8.tar.xz
drakx-backup-do-not-use-0bd79758c007682b3167c4559018edd4cd176bd8.zip
rename loop variable in order to prevent trainee to be confused
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/service_harddrake6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index d8f9c742d..e47c2a1c1 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -155,12 +155,12 @@ foreach my $hw_class (@harddrake::data::tree) {
eval { $configurator->() };
log::explanations(qw(cannot run "$configurator": $@)) if $@;
} elsif (!$no && $res) {
- foreach my $configurator (@configurator_pool) {
+ foreach my $program (@configurator_pool) {
if (fork()) {
wait();
} else {
- exec("$configurator 2>/dev/null") or do {
- log::explanations(qw(cannot run "$configurator"));
+ exec("$program 2>/dev/null") or do {
+ log::explanations(qw(cannot run "$program"));
require POSIX;
POSIX::_exit();
};