Fix problem in previous checkin trying to write to a filehandle before actually opening it

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10605 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-09-22 18:02:54 +00:00
parent 5f525c97d9
commit f9f5cce21a

View File

@ -404,13 +404,13 @@ sub mkinstall
mkpath("$installroot/utils/");
copy("$::XCATROOT/share/xcat/netboot/efidetect.exe","$installroot/utils/efidetect.exe");
}
open($shandle,">","$installroot/autoinst/$node.cmd");
print $shandle "set UNATTEND=$node\r\n";
if (-f "$installroot/utils/efidetect.exe") {
print $shandle "i:\\efidetect.exe\r\n";
print $shandle "if %ERRORLEVEL% equ 0 set UNATTEND=$node.uefi\r\n";
}
open($shandle,">","$installroot/autoinst/$node.cmd");
if ($sspeed) {
$sport++;
print $shandle "i:\\$os\\$arch\\setup /unattend:i:\\autoinst\\%UNATTEND% /emsport:COM$sport /emsbaudrate:$sspeed /noreboot\r\n";