capture Windows error

Author: briandfoy

lib/Module/Release.pm

@@ -1359,11 +1359,12 @@ sub run {
 	waitpid( $pid, 0 );
 	my $child_exit_status = $? >> 8;
 
+
 	$self->_warn( $error ) if length $error;
 
 	if( $child_exit_status ) {
 		$self->_run_error_set;
-		$self->_warn( "Command [$command] didn't close cleanly: $?" );
+		$self->_warn( "Command [$command] didn't close cleanly: $child_exit_status" );
 		}
 
 	return $output;

t/run.t

@@ -64,7 +64,7 @@ subtest 'bad command' => sub {
 	ok defined $at, "Bad command dies";
 
 	if( $^O eq 'MSWin32' ) {
-		like $warnings, qr/'foo' is not recognized/, 'Saw Windows error';
+		like $warnings, qr/didn't close cleanly/, 'Saw Windows error';
 		}
 	else {
 		like $at, qr/exec of \Q$command\E failed/, "Error message with bad command";