From 7430084e6850b3c7a1ea5accd04f36620b936d75 Mon Sep 17 00:00:00 2001
From: Mattia Barbon <mattia.barbon@booking.com>
Date: Sun, 13 Nov 2022 23:33:50 +0100
Subject: SvPVutf8_nomg - assign string length to the len parameter

This is consistent with other SvPV* variants that take a len parameter.
---
 sv.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sv.h')

diff --git a/sv.h b/sv.h
index 7523d5a099..a1ff8f4a5f 100644
--- a/sv.h
+++ b/sv.h
@@ -1955,7 +1955,7 @@ END_EXTERN_C
     Perl_SvPV_helper(aTHX_ sv, &len, SV_GMAGIC, SvPVutf8_type_,             \
                      Perl_sv_2pvutf8_flags, FALSE, 0)
 #define SvPVutf8_nomg(sv, len)                                              \
-    Perl_SvPV_helper(aTHX_ sv, NULL, 0, SvPVutf8_type_,                     \
+    Perl_SvPV_helper(aTHX_ sv, &len, 0, SvPVutf8_type_,                     \
                      Perl_sv_2pvutf8_flags, FALSE, 0)
 #define SvPVutf8_nolen(sv)                                                  \
     Perl_SvPV_helper(aTHX_ sv, NULL, SV_GMAGIC, SvPVutf8_type_,             \
-- 
cgit v1.2.1