… | |
… | |
402 | hv_clear ((HV *)sv); |
402 | hv_clear ((HV *)sv); |
403 | sv_unmagic (sv, PERL_MAGIC_ext); |
403 | sv_unmagic (sv, PERL_MAGIC_ext); |
404 | } |
404 | } |
405 | #endif |
405 | #endif |
406 | |
406 | |
407 | static long SvPTR_nc (SV *sv) |
407 | static long |
|
|
408 | SvPTR_nc (SV *sv) |
408 | { |
409 | { |
409 | sv = SvRV (sv); |
410 | sv = SvRV (sv); |
410 | |
411 | |
411 | // very important shortcut |
412 | // very important shortcut |
412 | if (expect_true (SvMAGIC (sv) && SvMAGIC (sv)->mg_type == PERL_MAGIC_ext)) |
413 | if (expect_true (SvMAGIC (sv) && SvMAGIC (sv)->mg_type == PERL_MAGIC_ext)) |