… | |
… | |
1504 | av_store (av, eiv->iv, newRV_noinc ((SV *)event)); |
1504 | av_store (av, eiv->iv, newRV_noinc ((SV *)event)); |
1505 | newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv)); |
1505 | newCONSTSUB (stash_cf, (char *)eiv->name, newSViv (eiv->iv)); |
1506 | } |
1506 | } |
1507 | } |
1507 | } |
1508 | |
1508 | |
|
|
1509 | void _gv_clear (SV *gv) |
|
|
1510 | CODE: |
|
|
1511 | assert (SvTYPE (gv) == SVt_PVGV); |
|
|
1512 | # define f(sv) { SV *sv_ = (SV *)(sv); sv = 0; SvREFCNT_dec (sv_); } |
|
|
1513 | f (GvGP (gv)->gp_form); |
|
|
1514 | f (GvGP (gv)->gp_io); |
|
|
1515 | f (GvGP (gv)->gp_sv); |
|
|
1516 | f (GvGP (gv)->gp_av); |
|
|
1517 | f (GvGP (gv)->gp_hv); |
|
|
1518 | f (GvGP (gv)->gp_cv); |
|
|
1519 | GvCVGEN (gv) = 0; |
|
|
1520 | GvMULTI_off (gv); |
|
|
1521 | # undef f |
|
|
1522 | |
|
|
1523 | |
1509 | void _connect_to_perl () |
1524 | void _connect_to_perl () |
1510 | |
1525 | |
1511 | void _recalc_want () |
1526 | void _recalc_want () |
1512 | |
1527 | |
1513 | void _global_reattach () |
1528 | void _global_reattach () |