From: Francois Gouget <fgouget@codeweavers.com>
Subject: [PATCH] testbot: Avoid scalar(%hash) for compatibility with Perl 5.20.
Message-Id: <E1fWN32-0002Nl-QU@amboise>
Date: Fri, 22 Jun 2018 16:28:24 +0200 (CEST)

Signed-off-by: Francois Gouget <fgouget@codeweavers.com>
---

This is probably needed on the official TestBot!
I'm surprised we did not have the Engine or a script die already.

 testbot/lib/WineTestBot/PatchUtils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testbot/lib/WineTestBot/PatchUtils.pm b/testbot/lib/WineTestBot/PatchUtils.pm
index f83df6087..b6ea54bcb 100644
--- a/testbot/lib/WineTestBot/PatchUtils.pm
+++ b/testbot/lib/WineTestBot/PatchUtils.pm
@@ -298,7 +298,7 @@ sub GetPatchImpact($;$$)
       }
     }
 
-    $TestInfo->{UnitCount} = scalar(%{$TestInfo->{Units}});
+    $TestInfo->{UnitCount} = scalar(keys %{$TestInfo->{Units}});
     if ($TestInfo->{UnitCount})
     {
       $Impacts->{ModuleCount}++;

-- 
2.17.1