[tools] testbot/PatchUtils: Add support for .com program tests.

[Francois Gouget]

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=48090
Signed-off-by: Francois Gouget 
---
 testbot/lib/WineTestBot/PatchUtils.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/testbot/lib/WineTestBot/PatchUtils.pm b/testbot/lib/WineTestBot/PatchUtils.pm
index df31a095a7..dbd14f2005 100644
--- a/testbot/lib/WineTestBot/PatchUtils.pm
+++ b/testbot/lib/WineTestBot/PatchUtils.pm
@@ -177,7 +177,8 @@ sub _CreateTestInfo($$$)
 {
   my ($Impacts, $Root, $Dir) = @_;

-  my $Module = ($Root eq "programs") ? "$Dir.exe" : $Dir;
+  # Don't add an extension to programs that have one already
+  my $Module = ($Root eq "programs" and $Dir !~ /./) ? "$Dir.exe" : $Dir;
   $Impacts->{BuildModules}->{$Module} = 1;
   $Impacts->{IsWinePatch} = 1;