summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-08-25 14:53:23 +0000
committerNicholas Clark <nick@ccl4.org>2005-08-25 14:53:23 +0000
commit50d383f8434c97005f54b5b05120a85722081acd (patch)
treee17ac57c93f62380603bd9b1ecdcb14fc94acda3 /sv.c
parent7437becc789e98e37551293e8c645c4aa36fdd5d (diff)
downloadperl-50d383f8434c97005f54b5b05120a85722081acd.tar.gz
Revert 25331 (except for the typo fix).
p4raw-id: //depot/perl@25332
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/sv.c b/sv.c
index 66f3dc0608..60a4645458 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);