WIP

tonycoz · Apr 3, 2024 · 3f37873 · 3f37873
1 parent a648e15
commit 3f37873
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/sv.c b/sv.c
@@ -4912,10 +4912,11 @@ Perl_sv_setsv_cow(pTHX_ SV **pdsv, SV *ssv)
                     sv_dump(dsv);
     }
 #endif
-    if (!CHECK_COWBUF_THRESHOLD(cur, len)
-        || ! CHECK_COW_THRESHOLD(cur, len)) {
+    if (!SvIsCOW(ssv) &&
+        (!CHECK_COWBUF_THRESHOLD(cur, len)
+         || ! CHECK_COW_THRESHOLD(cur, len))) {
         DEBUG_C(PerlIO_printf(Perl_debug_log,
-                              "Fast copy on write: Sizes %zu/%zu not appropriate to COW\n", cur, len));
+                              "Fast copy on write: Sizes %zu/%zu %p/%p not appropriate to COW\n", cur, len, dsv ? (void *)SvPVX(dsv) : (void *)0, (void*)SvPVX(ssv)));
         return FALSE;
     }
     if (dsv) {