[PATCH] testbot/build: Log the wine commit id the patch is tested on.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 testbot/bin/build/Build.pl    | 4 +++-
 testbot/bin/build/WineTest.pl | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/testbot/bin/build/Build.pl b/testbot/bin/build/Build.pl
index da145837b..920fc8204 100755
--- a/testbot/bin/build/Build.pl
+++ b/testbot/bin/build/Build.pl
@@ -93,7 +93,9 @@ sub ApplyPatch($)
   my ($PatchFile) = @_;

InfoMsg "Applying patch\n";
-  system("cd '$DataDir/wine' && set -x && ".
+  system("cd '$DataDir/wine' && ".
+         "echo wine:HEAD=`git rev-parse HEAD` && ".
+         "set -x && ".
          "git apply --verbose ". ShQuote($PatchFile) ." && ".
          "git add -A");
   if ($? != 0)
diff --git a/testbot/bin/build/WineTest.pl b/testbot/bin/build/WineTest.pl
index 5ef8e614e..1fa59c297 100755
--- a/testbot/bin/build/WineTest.pl
+++ b/testbot/bin/build/WineTest.pl
@@ -90,7 +90,9 @@ sub ApplyPatch($)
   my ($PatchFile) = @_;

InfoMsg "Applying patch\n";
-  system("cd '$DataDir/wine' && set -x && ".
+  system("cd '$DataDir/wine' && ".
+         "echo wine:HEAD=`git rev-parse HEAD` && ".
+         "set -x && ".
          "git apply --verbose ". ShQuote($PatchFile) ." && ".
          "git add -A");
   if ($? != 0)