summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c17
1 files changed, 1 insertions, 16 deletions
diff --git a/sv.c b/sv.c
index e4214c6b8d..0f5c107dfe 100644
--- a/sv.c
+++ b/sv.c
@@ -4054,14 +4054,9 @@ I32 n;
}
SV*
-#ifndef CAN_PROTOTYPE
-sv_bless3(sv,stash,zaptilde)
+sv_bless(sv,stash)
SV* sv;
HV* stash;
-bool zaptilde;
-#else
-sv_bless3(SV *sv, HV *stash, bool zaptilde)
-#endif /* CAN_PROTOTYPE */
{
dTHR;
SV *ref;
@@ -4074,8 +4069,6 @@ sv_bless3(SV *sv, HV *stash, bool zaptilde)
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));
}
}
@@ -4095,14 +4088,6 @@ sv_bless3(SV *sv, HV *stash, bool zaptilde)
return sv;
}
-SV*
-sv_bless(sv,stash)
-SV* sv;
-HV* stash;
-{
- return sv_bless3(sv, stash, FALSE);
-}
-
static void
sv_unglob(sv)
SV* sv;