off-by-one in os2.c (from Ilya Zakharevich)

p4raw-id: //depot/perl@5654

1 files changed, 1 insertions, 1 deletions

diff --git a/os2/os2.c b/os2/os2.c
index 8a17ae714e..97e8899c35 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -777,7 +777,7 @@ U32 addflag;
 						   long enough. */
 			    a--;
 			}
-			while (nargs-- >= 0)
+			while (--nargs >= 0)
 			    PL_Argv[nargs] = argsp[nargs];
 			/* Enable pathless exec if #! (as pdksh). */
 			pass = (buf[0] == '#' ? 2 : 3);