ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/cfperl.xs
(Generate patch)

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.165 by root, Tue Feb 13 16:23:32 2007 UTC vs.
Revision 1.166 by root, Tue Feb 13 19:25:45 2007 UTC

… …
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);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines