Fixed compilation with perl 5.8.

tools/winemaker

@@ -333,6 +333,11 @@ my %warnings;
 my %templates;
 
 ##
+# This maps a directory name to a reference to an array listing
+# its contents (files and directories)
+my %directories;
+
+##
 # Contains the list of all projects. This list tells us what are
 # the subprojects of the main Makefile and where we have to generate
 # Makefiles.
@@ -1058,11 +1063,6 @@ sub fix_file_and_directory_names($)
 #####
 
 ##
-# This maps a directory name to a reference to an array listing
-# its contents (files and directories)
-my %directories;
-
-##
 # Try to find a file for the specified filename. The attempt is
 # case-insensitive which is why it's not trivial. If a match is
 # found then we return the pathname with the correct case.