runops becomes a funtion pointer and sv_bless3 created

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index cd55f81..1c58c46 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4043,9 +4043,10 @@ I32 n;
 }
 
 SV*
 }
 
 SV*

-sv_bless(sv,stash)
+sv_bless3(sv,stash,zaptilde)

 SV* sv;
 HV* stash;
 SV* sv;
 HV* stash;

+bool zaptilde;

 {
     dTHR;
     SV *ref;
 {
     dTHR;
     SV *ref;


@@ -4058,6 +4059,8 @@ HV* stash;
        if (SvOBJECT(ref)) {
            if (SvTYPE(ref) != SVt_PVIO)
                --sv_objcount;
        if (SvOBJECT(ref)) {
            if (SvTYPE(ref) != SVt_PVIO)
                --sv_objcount;

+           if (zaptilde && SvRMAGICAL(ref))
+               sv_unmagic(ref, '~');   /* stop cross-class pointer forgery */

            SvREFCNT_dec(SvSTASH(ref));
        }
     }
            SvREFCNT_dec(SvSTASH(ref));
        }
     }


@@ -4077,6 +4080,14 @@ HV* stash;
     return sv;
 }
 
     return sv;
 }
 

+SV*
+sv_bless(sv,stash)
+SV* sv;
+HV* stash;
+{
+    return sv_bless3(sv, stash, FALSE);
+}
+

 static void
 sv_unglob(sv)
 SV* sv;
 static void
 sv_unglob(sv)
 SV* sv;