| Subject: | [PATCH] Handle copy-on-write scalars |
This happened to work before only because sv_2iv and sv_2nv unnecessarily turned off
cowiness.
I’ve updated the perl api docs for SvPV_set (in commit 235fc04487) to say what has actually
been the case since 5.8.0 at least.
| Subject: | open_INM8JgdY.txt |
diff -rup DBI-1.622-XfGsq2/DBI.xs DBI-1.622-_ad3mD/DBI.xs
--- DBI-1.622-XfGsq2/DBI.xs 2012-05-21 01:24:33.000000000 -0700
+++ DBI-1.622-_ad3mD/DBI.xs 2012-12-05 09:36:05.000000000 -0800
@@ -1970,6 +1970,7 @@ sql_type_cast_svpv(pTHX_ SV *sv, int sql
&& SvPVX(sv) /* we have a buffer to discard */
) {
SvOOK_off(sv);
+ sv_force_normal(sv);
if (SvLEN(sv))
Safefree(SvPVX(sv));
SvPOK_off(sv);