[PATCH] testbot/web: Compile patches on wow64 if 64 bit tests have been selected.

[Francois Gouget]

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
---
 testbot/web/Submit.pl | 45 ++++++++++++++++++++++++-------------------
 1 file changed, 25 insertions(+), 20 deletions(-)

diff --git a/testbot/web/Submit.pl b/testbot/web/Submit.pl
index 9fa252a11..38aa75fcb 100644
--- a/testbot/web/Submit.pl
+++ b/testbot/web/Submit.pl
@@ -858,30 +858,35 @@ sub OnSubmit($)
     my $VMs = CreateVMs();
     $VMs->AddFilter("Type", ["wine"]);
     my $SortedKeys = $VMs->SortKeysBySortOrder($VMs->GetKeys());
-    foreach my $VMKey (@$SortedKeys)
+    foreach my $Build ("win32", "wow64")
     {
-      my $VM = $VMs->GetItem($VMKey);
-      my $FieldName = "vm_" . $self->CGI->escapeHTML($VMKey);
-      next if (!$self->GetParam($FieldName)); # skip unselected VMs
+      next if ($Build eq "wow64" and !defined($self->GetParam("Run64")));
 
-      if (!$Tasks)
+      foreach my $VMKey (@$SortedKeys)
       {
-        # First create the Wine test step
-        my $WineStep = $Steps->Add();
-        $WineStep->FileName($BaseName);
-        $WineStep->FileType($FileType);
-        $WineStep->InStaging(!1);
-        $WineStep->Type("build");
-        $WineStep->DebugLevel($self->GetParam("DebugLevel"));
-        $WineStep->ReportSuccessfulTests(defined($self->GetParam("ReportSuccessfulTests")));
-        $Tasks = $WineStep->Tasks;
-      }
+        my $VM = $VMs->GetItem($VMKey);
+        my $FieldName = "vm_" . $self->CGI->escapeHTML($VMKey);
+        next if (!$self->GetParam($FieldName)); # skip unselected VMs
 
-      # Then add a task for this VM
-      my $Task = $Tasks->Add();
-      $Task->VM($VM);
-      $Task->CmdLineArg("win32");
-      $Task->Timeout($WineReconfigTimeout);
+        if (!$Tasks)
+        {
+          # First create the Wine test step
+          my $WineStep = $Steps->Add();
+          $WineStep->FileName($BaseName);
+          $WineStep->FileType($FileType);
+          $WineStep->InStaging(!1);
+          $WineStep->Type("build");
+          $WineStep->DebugLevel($self->GetParam("DebugLevel"));
+          $WineStep->ReportSuccessfulTests(defined($self->GetParam("ReportSuccessfulTests")));
+          $Tasks = $WineStep->Tasks;
+        }
+
+        # Then add a task for this VM
+        my $Task = $Tasks->Add();
+        $Task->VM($VM);
+        $Task->CmdLineArg($Build);
+        $Task->Timeout($WineReconfigTimeout);
+      }
     }
   }
 
-- 
2.18.0