# HG changeset patch
# User Dario Sestito <darios@symbian.org>
# Date 1267701526 0
# Node ID 450398a72180546288784258df73b7835603b5d5
# Parent  82b5ad2f2024bda549a5fb944a759864ecc12fcb
Move creation of letter file before Hudson space check, otherwise check could fail (if no file at all is present on the working drive)

diff -r 82b5ad2f2024 -r 450398a72180 build_package.pl
--- 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);