| … | |
… | |
| 388 | |
388 | |
| 389 | return sv; |
389 | return sv; |
| 390 | } |
390 | } |
| 391 | } |
391 | } |
| 392 | |
392 | |
|
|
393 | #if 0 // unused |
| 393 | static void |
394 | static void |
| 394 | clearSVptr (SV *sv) |
395 | clearSVptr (SV *sv) |
| 395 | { |
396 | { |
| 396 | if (SvROK (sv)) |
397 | if (SvROK (sv)) |
| 397 | sv = SvRV (sv); |
398 | sv = SvRV (sv); |
| 398 | |
399 | |
| 399 | hv_clear ((HV *)sv); |
400 | hv_clear ((HV *)sv); |
| 400 | sv_unmagic (sv, PERL_MAGIC_ext); |
401 | sv_unmagic (sv, PERL_MAGIC_ext); |
| 401 | } |
402 | } |
|
|
403 | #endif |
| 402 | |
404 | |
| 403 | static long |
405 | static long |
| 404 | SvPTR (SV *sv, const char *klass) |
406 | SvPTR (SV *sv, const char *klass) |
| 405 | { |
407 | { |
| 406 | if (!sv_derived_from (sv, klass)) |
408 | if (!sv_derived_from (sv, klass)) |
