[PATCH] testbot/WineRunReconfig: Also retrieve the wine-parentsrc.txt file.

[Francois Gouget]

It is needed to properly handle patches to modules with the PARENTSRC
setting.

Signed-off-by: Francois Gouget 
---
 testbot/bin/WineRunReconfig.pl | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/testbot/bin/WineRunReconfig.pl b/testbot/bin/WineRunReconfig.pl
index c9025c13..9bb402a6 100755
--- a/testbot/bin/WineRunReconfig.pl
+++ b/testbot/bin/WineRunReconfig.pl
@@ -433,14 +433,17 @@ if ($NewStatus eq "completed")
     }
   }

-  Debug(Elapsed($Start), " Retrieving the list of Wine files '$TaskDir/winefiles.txt'\n");
-  if ($TA->GetFile("latest/winefiles.txt", "$TaskDir/winefiles.txt"))
+  foreach my $FileName ("winefiles.txt", "wine-parentsrc.txt")
   {
-    copy "$TaskDir/winefiles.txt", "$DataDir/latest/winefiles.txt";
-  }
-  elsif (!defined $TAError)
-  {
-    $TAError = "An error occurred while retrieving the list of Wine files: ". $TA->GetLastError();
+    Debug(Elapsed($Start), " Retrieving '$TaskDir/$FileName'\n");
+    if ($TA->GetFile("latest/$FileName", "$TaskDir/$FileName"))
+    {
+      copy "$TaskDir/$FileName", "$DataDir/latest/$FileName";
+    }
+    elsif (!defined $TAError)
+    {
+      $TAError = "An error occurred while retrieving '$TaskDir/$FileName': ". $TA->GetLastError();
+    }
   }
 }