X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_ctl.c;h=48e36187f2ab4c4f51fc0dc18995c306a2b916ed;hb=35bc0dc84153b4a6ad4b24f4d9e7d25cc7a0fb97;hp=ec79e24936e910f87379f46c242986a3275fb119;hpb=b0e74086c793b91e11f2cb4f6e6cda6343532701;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_ctl.c b/pp_ctl.c
index ec79e24..48e3618 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3580,7 +3580,7 @@ S_doparseform(pTHX_ SV *sv)
 
     /* estimate the buffer size needed */
     for (base = s; s <= send; s++) {
-	if (*s == '\n' || *s == '@' || *s == '^')
+	if (*s == '\n' || *s == '\0' || *s == '@' || *s == '^')
 	    maxops += 10;
     }
     s = base;