diff options
| author | Matthew Horsfall (alh) <wolfsage@gmail.com> | 2011-11-16 23:06:33 -0500 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-18 17:46:21 -0800 |
| commit | e508c8a4ba3a6febe681a5f59949b1d403b124bd (patch) | |
| tree | bc1e0ac587fd09743c1e645c36bd889b4e334e1c /proto.h | |
| parent | 18f5643bfee3e4c35fe1b510ad2e37dcb28b9efc (diff) | |
| download | perl-e508c8a4ba3a6febe681a5f59949b1d403b124bd.tar.gz | |
Throw a helpful warning when someone tries length(@array) or length(%hash)
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -418,6 +418,12 @@ PERL_CALLCONV OP * Perl_ck_join(pTHX_ OP *o) #define PERL_ARGS_ASSERT_CK_JOIN \ assert(o) +PERL_CALLCONV OP * Perl_ck_length(pTHX_ OP *o) + __attribute__warn_unused_result__ + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_CK_LENGTH \ + assert(o) + PERL_CALLCONV OP * Perl_ck_lfun(pTHX_ OP *o) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1); |