From 51cf62d8ec31d46fecbc8564c5b48c17f5776f7f Mon Sep 17 00:00:00 2001
From: Owen Taylor <owt1@cornell.edu>
Date: Wed, 26 Nov 1997 19:25:50 -0500
Subject: [PATCH] Fix newSVrv so sv_setref_foo work better: 	Subject:
 [PATCH] [5.004_55] newSVrv (again)

p4raw-id: //depot/perl@319
---
 sv.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/sv.c b/sv.c
index 77feae2..649f623 100644
--- a/sv.c
+++ b/sv.c
@@ -3883,7 +3883,16 @@ newSVrv(SV *rv, char *classname)
     SvANY(sv) = 0;
     SvREFCNT(sv) = 0;
     SvFLAGS(sv) = 0;
-    sv_upgrade(rv, SVt_RV);
+
+    sv_check_thinkfirst(rv);
+#ifdef OVERLOAD
+    SvAMAGIC_off(rv);
+#endif /* OVERLOAD */
+
+    if (SvTYPE(rv) < SVt_RV)
+      sv_upgrade(rv, SVt_RV);
+
+    (void)SvOK_off(rv);
     SvRV(rv) = SvREFCNT_inc(sv);
     SvROK_on(rv);
 
-- 
2.7.4