diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-09-02 15:57:24 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-09-02 15:57:24 +0100 |
| commit | d6747b7ae5ffdaaf8364760ca2abdcb734c664c8 (patch) | |
| tree | 62184510cbe78416af2c7279db9a8119931bbe27 /cop.h | |
| parent | f4b4ed7b4eca79b25054dfeafa0aac0dbd41a507 (diff) | |
| download | perl-d6747b7ae5ffdaaf8364760ca2abdcb734c664c8.tar.gz | |
Change the first argument of Perl_fetch_cop_label() to COP *
From a suggestion from Ben Morrow.
The first argument used to be struct refcounted_he *, which exposed an
implementation detail - that the COP's labels are (now) stored in this way.
Google Code Search and an unpacked CPAN both fail to find any users of this
API, so the impact should be minimal.
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -243,7 +243,7 @@ struct cop { # define CopFILE_free(c) (SvREFCNT_dec(CopFILEGV(c)),(CopFILEGV(c) = NULL)) #endif /* USE_ITHREADS */ -#define CopLABEL(c) Perl_fetch_cop_label(aTHX_ (c)->cop_hints_hash, NULL, NULL) +#define CopLABEL(c) Perl_fetch_cop_label(aTHX_ (c), NULL, NULL) #define CopLABEL_alloc(pv) ((pv)?savepv(pv):NULL) #define CopSTASH_ne(c,hv) (!CopSTASH_eq(c,hv)) |