This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sv.c: Don’t do SvAMAGIC_off in newSVrv
authorFather Chrysostomos <sprout@cpan.org>
Sat, 19 May 2012 01:10:24 +0000 (18:10 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 22 May 2012 01:09:31 +0000 (18:09 -0700)
This has been useless since the flag was moved to the referent in com-
mit dd2eae66.  rv is undefined by the time this statement is reached
if it was a reference.

sv.c

diff --git a/sv.c b/sv.c
index dcb06a3..1f5e2f0 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9330,7 +9330,6 @@ Perl_newSVrv(pTHX_ SV *const rv, const char *const classname)
     new_SV(sv);
 
     SV_CHECK_THINKFIRST_COW_DROP(rv);
-    (void)SvAMAGIC_off(rv);
 
     if (SvTYPE(rv) >= SVt_PVMG) {
        const U32 refcnt = SvREFCNT(rv);