diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-08-25 14:53:23 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-08-25 14:53:23 +0000 |
commit | 50d383f8434c97005f54b5b05120a85722081acd (patch) | |
tree | e17ac57c93f62380603bd9b1ecdcb14fc94acda3 /sv.c | |
parent | 7437becc789e98e37551293e8c645c4aa36fdd5d (diff) | |
download | perl-50d383f8434c97005f54b5b05120a85722081acd.tar.gz |
Revert 25331 (except for the typo fix).
p4raw-id: //depot/perl@25332
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -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); |