X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.h;h=9f80c2944dd9bcf181963b817dd01ca0248f9df9;hb=94d58c47cfbe97ca0a689bcd5b7f9132f7918fee;hp=e17c2ebea0bf8195cca2efb37ef45aa678d2fd13;hpb=a0d0e21ea6ea90a22318550944fe6cb09ae10cda;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.h b/pp.h
index e17c2eb..9f80c29 100644
--- a/pp.h
+++ b/pp.h
@@ -181,7 +181,7 @@
 #define RvDEEPCP(rv) do { SV* ref=SvRV(rv);      \
   if (SvREFCNT(ref)>1) {                 \
     SvREFCNT_dec(ref);                   \
-    SvRV(rv)=newSVsv(ref);               \
+    SvRV(rv)=AMG_CALLun(rv,copy);        \
   } } while (0)
 #else