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

p4raw-id: //depot/perl@5654

diff --git a/os2/os2.c b/os2/os2.c
index 8a17ae714e73eddfc7ba5e0719ede4611737229c..97e8899c3509a3d157bbfcbdb2f1d25cb4c96a9b 100644 (file)
--- 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);