diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-21 21:57:21 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-21 21:57:58 -0800 |
| commit | 156d738fbb36dec69a83032866786dd3b6a1c2e9 (patch) | |
| tree | a538f4a9441b726a96c027a37101201d0758ba12 /embed.h | |
| parent | 971c5244800c9017603979e4f5202b8e5e374b62 (diff) | |
| download | perl-156d738fbb36dec69a83032866786dd3b6a1c2e9.tar.gz | |
Put sub redef warnings in one place
The logic surrounding subroutine redefinition warnings (to warn or not
to warn?) was in three places. Over time, they drifted apart, to the
point that newXS was following completely different rules. It was
only warning for redefinition of functions in the autouse namespace.
Recent commits have brought it into conformity with the other redefi-
nition warnings.
Obviously it’s about time we put it in one function.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1395,6 +1395,9 @@ #define too_few_arguments(a,b) S_too_few_arguments(aTHX_ a,b) #define too_many_arguments(a,b) S_too_many_arguments(aTHX_ a,b) # endif +# if defined(PERL_IN_OP_C) || defined(PERL_IN_SV_C) +#define report_redefined_cv(a,b,c) Perl_report_redefined_cv(aTHX_ a,b,c) +# endif # if defined(PERL_IN_PAD_C) #define pad_alloc_name(a,b,c,d) S_pad_alloc_name(aTHX_ a,b,c,d) #define pad_check_dup(a,b,c) S_pad_check_dup(aTHX_ a,b,c) |