[Fai-commit] r4892 - people/michael/features/setup_harddisks_2/implementation/lib
mt at alioth.debian.org
mt at alioth.debian.org
Fri May 9 13:33:29 UTC 2008
Author: mt
Date: 2008-05-09 13:33:20 +0000 (Fri, 09 May 2008)
New Revision: 4892
Modified:
people/michael/features/setup_harddisks_2/implementation/lib/commands.pm
Log:
ok, first error should be fixed, let's see what else is there...
Modified: people/michael/features/setup_harddisks_2/implementation/lib/commands.pm
===================================================================
--- people/michael/features/setup_harddisks_2/implementation/lib/commands.pm 2008-05-09 13:27:32 UTC (rev 4891)
+++ people/michael/features/setup_harddisks_2/implementation/lib/commands.pm 2008-05-09 13:33:20 UTC (rev 4892)
@@ -1000,12 +1000,7 @@
my $i = 1;
my $pushed = -1;
- print "n_c_i is" . $FAI::n_c_i . "\n";
- print "last added: " . $FAI::commands{$FAI::n_c_i - 1}{cmd} . "\n";
- print "last added: " . $FAI::commands{$FAI::n_c_i - 1}{pre} . "\n";
- print "last added: " . $FAI::commands{$FAI::n_c_i - 1}{post} . "\n";
while ($i < $FAI::n_c_i) {
- print "I:$i N_C_I:" . $FAI::n_c_i . "\n";
my $all_matched = 1;
foreach (split(/,/, $FAI::commands{$i}{pre})) {
next if scalar(grep(m{^$_$}, @pre_deps));
@@ -1013,10 +1008,9 @@
last;
}
if ($all_matched) {
+ defined($FAI::commands{$i}{post}) and push @pre_deps, split(/,/, $FAI::commands{$i}{post});
$pushed = -1;
$i++;
- defined($FAI::commands{$i}{post}) or print "No post for $i, " . $FAI::commands{$i}{cmd} . "\n";
- defined($FAI::commands{$i}{post}) and push @pre_deps, split(/,/, $FAI::commands{$i}{post});
next;
}
if (-1 == $pushed) {
More information about the Fai-commit
mailing list