This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
As we're not passing over (or copying in) a NUL, don't need that extra
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index d3c7be6..de921aa 100644 (file)
--- 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);