Add x-ref from call site in do_readline() of sv_grow() to it's matching test in t/op/readline.t

1 files changed, 6 insertions, 2 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 6f48d5a88b..217ee26603 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1639,8 +1639,12 @@ Perl_do_readline(pTHX)
 	}
 	SvUPGRADE(sv, SVt_PV);
 	tmplen = SvLEN(sv);	/* remember if already alloced */
-	if (!tmplen && !SvREADONLY(sv))
-	    Sv_Grow(sv, 80);	/* try short-buffering it */
+	if (!tmplen && !SvREADONLY(sv)) {
+            /* try short-buffering it. Please update t/op/readline.t
+	     * if you change the growth length.
+	     */
+	    Sv_Grow(sv, 80);
+        }
 	offset = 0;
 	if (type == OP_RCATLINE && SvOK(sv)) {
 	    if (!SvPOK(sv)) {