Possible future bugs found by the creation of newSVpvn_flags().

But use newSVhek() in preference when possible.

p4raw-id: //depot/perl@32813

1 files changed, 2 insertions, 6 deletions

diff --git a/regcomp.c b/regcomp.c
index e384ff5809..6d756132f4 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5001,9 +5001,7 @@ Perl_reg_named_buff_nextkey(pTHX_ REGEXP * const r, const U32 flags)
                 }
             }
             if (parno || flags & RXapif_ALL) {
-                STRLEN len;
-                char *pv = HePV(temphe, len);
-                return newSVpvn(pv,len);
+		return newSVhek(HeKEY_hek(temphe));
             }
         }
     }
@@ -5059,9 +5057,7 @@ Perl_reg_named_buff_all(pTHX_ REGEXP * const r, const U32 flags)
                 }
             }
             if (parno || flags & RXapif_ALL) {
-                STRLEN len;
-                char *pv = HePV(temphe, len);
-                av_push(av, newSVpvn(pv,len));
+                av_push(av, newSVhek(HeKEY_hek(temphe)));
             }
         }
     }