We know the length, so use sv_setpvn rather than sv_setpv.

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index 42cf557..a75cb74 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2991,6 +2991,12 @@ PERL_CALLCONV bool       Perl_stashpv_hvname_match(pTHX_ const COP *cop, const HV *hv)
 PERL_CALLCONV void     Perl_dump_sv_child(pTHX_ SV *sv);
 #endif
 
+#ifdef PERL_DONT_CREATE_GVSV
+PERL_CALLCONV GV*      Perl_gv_SVadd(pTHX_ GV* gv)
+                       __attribute__nonnull__(pTHX_1);
+
+#endif
+
 END_EXTERN_C
 /*
  * ex: set ts=8 sts=4 sw=4 noet: