… | … | ||
---|---|---|---|
270 | 270 | ||
271 | if (!obj->self) | 271 | if (!obj->self) |
272 | { | 272 | { |
273 | obj->self = newHV (); | 273 | obj->self = newHV (); |
274 | sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0); | 274 | sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0); |
275 | obj->flags |= (obj->flags & 0xc0) << 8; | ||
275 | obj->flags &= ~0xc0;//D | 276 | obj->flags &= ~0xc0;//D |
276 | obj->flags |= 0x10;//D | 277 | obj->flags |= 0x10;//D |
277 | 278 | ||
278 | // now bless the object _once_ | 279 | // now bless the object _once_ |
279 | return sv_bless (newRV_inc ((SV *)obj->self), stash); | 280 | return sv_bless (newRV_inc ((SV *)obj->self), stash); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |