Perl 1.0.15perl-1.0.15

As a birthday present to Perl and Larry, through the work of the
perl1-porters, in particular Richard Clamp, resurrected here is Perl 1.0
with minimal patches for modern machines.

1 files changed, 1 insertions, 1 deletions

diff --git a/form.c b/form.c
index 8894621c9f..0c7af03cea 100644
--- a/form.c
+++ b/form.c
@@ -17,7 +17,7 @@
 #define CHKLEN(allow) \
 if (d - orec->o_str + (allow) >= curlen) { \
     curlen = d - orec->o_str; \
-    GROWSTR(&orec->o_str,&orec->o_len,orec->o_len + (allow)); \
+    GROWSTR(&orec->o_str,&orec->o_len,orec->o_len + (allow) + 1); \
     d = orec->o_str + curlen;	/* in case it moves */ \
     curlen = orec->o_len - 2; \
 }