Fix error printing on windows process fork

hategan · hategan · commit d464aa611dd4 · 2016-08-21T14:46:47.000-07:00
diff --git a/cogkit/modules/provider-coaster/resources/worker.pl b/cogkit/modules/provider-coaster/resources/worker.pl
@@ -3253,8 +3253,8 @@ sub execPortable {
 			exit(-1);
 		}
 		if (!Win32::Process::Create($process, $executable, $cmdline, 0, NORMAL_PRIORITY_CLASS(), ".")) {
-			my $errno = $!;
-			wlog DEBUG, "Failed to create process: $!\n";
+			my $err = Win32::FormatMessage(Win32::GetLastError());
+			wlog DEBUG, "Failed to create process: $err\n";
 			return;
 		}
 		my $pid = $process->GetProcessID();

Original file line number	Diff line number	Diff line change
`@@ -3253,8 +3253,8 @@ sub execPortable {`
`3253`	`3253`	`exit(-1);`
`3254`	`3254`	`}`
`3255`	`3255`	`if (!Win32::Process::Create($process, $executable, $cmdline, 0, NORMAL_PRIORITY_CLASS(), ".")) {`
`3256`		`- my $errno = $!;`
`3257`		`- wlog DEBUG, "Failed to create process: $!\n";`
	`3256`	`+ my $err = Win32::FormatMessage(Win32::GetLastError());`
	`3257`	`+ wlog DEBUG, "Failed to create process: $err\n";`
`3258`	`3258`	`return;`
`3259`	`3259`	`}`
`3260`	`3260`	`my $pid = $process->GetProcessID();`