Francois Gouget : testbot/web: Move some Submit.pl variables closer to the usage.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Thu May 31 11:00:33 2018 +0200

testbot/web: Move some Submit.pl variables closer to the usage.

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

---

 testbot/web/Submit.pl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/testbot/web/Submit.pl b/testbot/web/Submit.pl
index 3c62c7f..2a4521e 100644
--- a/testbot/web/Submit.pl
+++ b/testbot/web/Submit.pl
@@ -509,15 +509,12 @@ sub DetermineFileType($$)
 {
   my ($self, $FileName) = @_;
 
-  my $ErrMessage = undef;
-  my $FileType = "unknown";
-  my $DllBaseName = undef;
-  my $TestUnit = undef;
   if (! sysopen(FH, $FileName, O_RDONLY))
   {
     return ("Unable to open $FileName", "unknown", undef, undef);
   }
 
+  my $FileType = "unknown";
   my $Buffer;
   if (sysread(FH, $Buffer, 0x40))
   {
@@ -563,6 +560,7 @@ sub DetermineFileType($$)
 
   close FH;
 
+  my ($ErrMessage, $DllBaseName, $TestUnit);
   if ($FileType eq "unknown")
   {
     my $Impacts = GetPatchImpact($FileName);