diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-05-20 12:31:09 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-05-20 12:31:09 +0000 |
| commit | c28fe1ecc160a002d731cdf38ff7215ad3cf2a19 (patch) | |
| tree | 1e2f422e7ae0c64e5419784494fae185eb6e02eb /cop.h | |
| parent | e22ae1e278fa878ce0da6700e97da49f0dacf636 (diff) | |
| download | perl-c28fe1ecc160a002d731cdf38ff7215ad3cf2a19.tar.gz | |
Rename cop_hints to cop_hints_hash
p4raw-id: //depot/perl@28252
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -150,7 +150,7 @@ struct cop { SV * cop_io; /* lexical IO defaults */ /* compile time state of %^H. See the comment in op.c for how this is used to recreate a hash to return from caller. */ - struct refcounted_he * cop_hints; + struct refcounted_he * cop_hints_hash; }; #ifdef USE_ITHREADS @@ -235,16 +235,16 @@ struct cop { using $[ is highly discouraged, no sane Perl code will be using it. */ #define CopARYBASE_get(c) \ ((CopHINTS_get(c) & HINT_ARYBASE) \ - ? SvIV(Perl_refcounted_he_fetch(aTHX_ (c)->cop_hints, 0, "$[", 2, 0, \ - 0)) \ + ? SvIV(Perl_refcounted_he_fetch(aTHX_ (c)->cop_hints_hash, 0, \ + "$[", 2, 0, 0)) \ : 0) #define CopARYBASE_set(c, b) STMT_START { \ if (b || ((c)->op_private & HINT_ARYBASE)) { \ (c)->op_private |= HINT_ARYBASE; \ if ((c) == &PL_compiling) \ PL_hints |= HINT_LOCALIZE_HH | HINT_ARYBASE; \ - (c)->cop_hints \ - = Perl_refcounted_he_new(aTHX_ (c)->cop_hints, \ + (c)->cop_hints_hash \ + = Perl_refcounted_he_new(aTHX_ (c)->cop_hints_hash, \ sv_2mortal(newSVpvs("$[")), \ sv_2mortal(newSViv(b))); \ } \ |