Fixed compilation with perl 5.8.
diff --git a/tools/winemaker b/tools/winemaker
index 8572a99..c50bc13 100755
--- a/tools/winemaker
+++ b/tools/winemaker
@@ -333,6 +333,11 @@
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 @@
#####
##
-# 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.
