From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 25 Aug 2005 14:53:23 +0000 (+0000)
Subject: Revert 25331 (except for the typo fix).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=50d383f8434c97005f54b5b05120a85722081acd;p=p5sagit%2Fp5-mst-13.2.git

Revert 25331 (except for the typo fix).

p4raw-id: //depot/perl@25332
---

diff --git a/sv.c b/sv.c
index 66f3dc0..60a4645 100644
--- a/sv.c
+++ b/sv.c
@@ -5412,10 +5412,6 @@ Perl_sv_replace(pTHX_ register SV *sv, register SV *nsv)
 	Perl_croak(aTHX_ "panic: reference miscount on nsv in sv_replace() (%"
 		   UVuf " != 1)", (UV) SvREFCNT(nsv));
     }
-    if (SvREFCNT(sv) != 1) {
-	Perl_croak(aTHX_ "panic: reference miscount on sv in sv_replace() (%"
-		   UVuf " != 1)", (UV) SvREFCNT(sv));
-    }
     if (SvMAGICAL(sv)) {
 	if (SvMAGICAL(nsv))
 	    mg_free(nsv);