diff options
| author | Zefram <zefram@fysh.org> | 2010-10-19 09:31:46 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-21 05:55:28 -0700 |
| commit | 20439bc77dfeec46d94a15cf108446039e26c995 (patch) | |
| tree | ea8f1eb9a1f1003a110114977d660f97d96a5bc2 /gv.c | |
| parent | 53d84487fbdd2060c1a666eacaef6e34ce4a1483 (diff) | |
| download | perl-20439bc77dfeec46d94a15cf108446039e26c995.tar.gz | |
full API for cop hint hashes
Expose cop hint hashes as a type COPHH, with a cophh_* API which is a
macro layer over the refcounted_he_* API. The documentation for cophh_*
describes purely API-visible behaviour, whereas the refcounted_he_*
documentation describes the functions mainly in terms of the
implementation. Revise the cop_hints_* API, using the flags parameter
consistently and reimplementing in terms of cophh_*. Use the cophh_*
and cop_hints_* functions consistently where appropriate.
[Modified by the committer to update two calls to
Perl_refcounted_he_fetch recently added to newPMOP.]
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -2021,8 +2021,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags) PERL_ARGS_ASSERT_AMAGIC_CALL; if ( PL_curcop->cop_hints & HINT_NO_AMAGIC ) { - SV *lex_mask = Perl_refcounted_he_fetch(aTHX_ PL_curcop->cop_hints_hash, - 0, "overloading", 11, 0, 0); + SV *lex_mask = cop_hints_fetch_pvs(PL_curcop, "overloading", 0); if ( !lex_mask || !SvOK(lex_mask) ) /* overloading lexically disabled */ |