}
void
-Perl_save_iv(pTHX_ IV *ivp)
-{
- PERL_ARGS_ASSERT_SAVE_IV;
-
- SSCHECK(3);
- SSPUSHIV(*ivp);
- SSPUSHPTR(ivp);
- SSPUSHUV(SAVEt_IV);
-}
-
-void
Perl_save_nogv(pTHX_ GV *gv)
{
PERL_ARGS_ASSERT_SAVE_NOGV;
{
return sv_collxfrm_flags(sv, nxp, SV_GMAGIC);
}
+
+char *
+Perl_mem_collxfrm(pTHX_ const char *input_string, STRLEN len, STRLEN *xlen)
+{
+ /* This function is retained for compatibility in case someone outside core
+ * is using this (but it is undocumented) */
+
+ PERL_ARGS_ASSERT_MEM_COLLXFRM;
+
+ return _mem_collxfrm(input_string, len, xlen, FALSE);
+}
+
#endif
bool
{
PERL_ARGS_ASSERT_SV_COPYPV;
- sv_copypv_flags(dsv, ssv, 0);
+ sv_copypv_flags(dsv, ssv, SV_GMAGIC);
}
UV /* Made into a function, so can be deprecated */