Upgrade to Compress::Zlib 1.38

[p5sagit/p5-mst-13.2.git] / sv.c

diff --git a/sv.c b/sv.c
index 66f3dc0..60a4645 100644 (file)
--- 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);