--- a/build_package.pl	Fri Feb 19 09:53:32 2010 +0000
+++ b/build_package.pl	Thu Mar 04 11:18:46 2010 +0000
@@ -99,6 +99,14 @@
 my $sWORKING_DRIVE = find_working_drive();
 print "Will use drive $sWORKING_DRIVE as working drive for this build\n";
 
+# check that $sLETTERS_FILE exists, otherwise create it
+if (!-f "$sWORKING_DRIVE\\$sLETTERS_FILE")
+{
+	open FILE, ">$sWORKING_DRIVE\\$sLETTERS_FILE";
+	print FILE "\n";
+	close FILE;
+}
+
 if ($bHudson)
 {
 	my $nProcessors = $ENV{'NUMBER_OF_PROCESSORS'};
@@ -214,14 +222,6 @@
 my $nJobNumber = sprintf("%.3d", $nUnformattedNumber);
 print "For build key $sJobNumberKey got assigned number \"$nJobNumber\"\n";
 
-# check that $sLETTERS_FILE exists, otherwise create it
-if (!-f "$sWORKING_DRIVE\\$sLETTERS_FILE")
-{
-	open FILE, ">$sWORKING_DRIVE\\$sLETTERS_FILE";
-	print FILE "\n";
-	close FILE;
-}
-
 # acquire drive letter
 my $sDriveLetter = acquire_drive_letter();
 die "Could not acquire drive letter" if (!$sDriveLetter);