As we're not passing over (or copying in) a NUL, don't need that extra

byte for it, so correct the < to <= so that we use the smallbuf
whenever possible.

p4raw-id: //depot/perl@30000

1 files changed, 2 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index d3c7be6ab5..de921aa310 100644
--- a/toke.c
+++ b/toke.c
@@ -794,11 +794,11 @@ S_incline(pTHX_ char *s)
 	    char *tmpbuf, *tmpbuf2;
 	    GV **gvp, *gv2;
 	    STRLEN tmplen2 = strlen(s);
-	    if (tmplen + 2 < sizeof smallbuf)
+	    if (tmplen + 2 <= sizeof smallbuf)
 		tmpbuf = smallbuf;
 	    else
 		Newx(tmpbuf, tmplen + 2, char);
-	    if (tmplen2 + 2 < sizeof smallbuf2)
+	    if (tmplen2 + 2 <= sizeof smallbuf2)
 		tmpbuf2 = smallbuf2;
 	    else
 		Newx(tmpbuf2, tmplen2 + 2, char);