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.338 by root, Sun Nov 15 18:03:59 2009 UTC vs.
Revision 1.339 by root, Thu Nov 26 08:08:40 2009 UTC

… …
407static long SvPTR_nc (SV *sv) 407static long SvPTR_nc (SV *sv)
408{ 408{
409 sv = SvRV (sv); 409 sv = SvRV (sv);
410 410
411 // very important shortcut 411 // very important shortcut
412 if (expect_true (SvMAGIC (sv)->mg_type == PERL_MAGIC_ext)) 412 if (expect_true (SvMAGIC (sv) && SvMAGIC (sv)->mg_type == PERL_MAGIC_ext))
413 return (long)SvMAGIC (sv)->mg_ptr; 413 return (long)SvMAGIC (sv)->mg_ptr;
414 414
415 if (MAGIC *mg = mg_find (sv, PERL_MAGIC_ext)) 415 if (MAGIC *mg = mg_find (sv, PERL_MAGIC_ext))
416 return (long)mg->mg_ptr; 416 return (long)mg->mg_ptr;
417 417

Diff Legend

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