Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.h b/pp.h
index e17c2ebea0..9f80c2944d 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