fix bug in change#3123 (off-by-one, caused C<qx[noargs]> to fail

on win32)

p4raw-link: @3123 on //depot/perl: 0aaad0ff610b01c0682abfc20594c83a6d49f148

p4raw-id: //depot/perl@3269

1 files changed, 2 insertions, 5 deletions

diff --git a/win32/win32.c b/win32/win32.c
index 480dfeb987..fe621d1ecc 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -2093,14 +2093,11 @@ create_command_line(const char* command, const char * const *args)
     New(1310, cmd, len, char);
     ptr = cmd;
     strcpy(ptr, command);
-    ptr += strlen(ptr);
-    *ptr++ = ' ';
 
     for (index = 0; (arg = (char*)args[index]) != NULL; ++index) {
-	strcpy(ptr, arg);
 	ptr += strlen(ptr);
-	if ((char*)args[index+1] != NULL)
-	    *ptr++ = ' ';
+	*ptr++ = ' ';
+	strcpy(ptr, arg);
     }
 
     return cmd;