Francois Gouget : testbot: Avoid scalar(%hash) for compatibility with Perl 5.20.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 0e82c68f81f736f6a8ef34dcb7cdf93546d71579
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=0e82c68f81f736f6a8ef34dcb7cdf93546d71579

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Fri Jun 22 16:28:24 2018 +0200

testbot: Avoid scalar(%hash) for compatibility with Perl 5.20.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 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 f83df60..b6ea54b 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}++;