S_glob_2inpuv() did not check if lenp was NULL. Oops.

p4raw-id: //depot/perl@27803

1 files changed, 5 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 3f44139d35..a64b27298b 100644
--- a/sv.c
+++ b/sv.c
@@ -1738,7 +1738,11 @@ S_glob_2inpuv(pTHX_ GV *gv, STRLEN *len, bool want_number)
 	   can tail call us and return true.  */
 	return (char *) 1;
     } else {
-	return SvPV(buffer, *len);
+	assert(SvPOK(buffer));
+	if (len) {
+	    *len = SvCUR(buffer);
+	}
+	return SvPVX(buffer);
     }
 }