From de8c628c87eb5aee898aba4c43619876ab0b5a26 Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Sat, 23 Nov 2024 17:48:30 +0000
Subject: [PATCH] Might as well call valid_identifier_pve() directly since we
 already know pv and len

---
 toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toke.c b/toke.c
index 1fc30f3780271..714c954dd5736 100644
--- a/toke.c
+++ b/toke.c
@@ -14028,7 +14028,7 @@ Perl_valid_identifier_sv(pTHX_ SV *sv)
 
     STRLEN len;
     const char *pv = SvPV_const(sv, len);
-    return valid_identifier_pvn(pv, len, SvUTF8(sv));
+    return valid_identifier_pve(pv, pv + len, SvUTF8(sv));
 }
 
 /*