diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-12 11:24:15 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-12 11:24:15 +0100 |
| commit | 4b8c6c21cda3d9cbafb72eda661edc9052aa2cec (patch) | |
| tree | 9ccb458342c2d75711d03ccdfbbb14b3209d7c1f /proto.h | |
| parent | f8279d106847c47fc5a4092b27d4f24faffd84cd (diff) | |
| download | perl-4b8c6c21cda3d9cbafb72eda661edc9052aa2cec.tar.gz | |
deprecate_old() is not public, and only used within toke.c, so can be static.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -521,11 +521,13 @@ PERL_CALLCONV void Perl_deprecate(pTHX_ const char *const s) #define PERL_ARGS_ASSERT_DEPRECATE \ assert(s) -PERL_CALLCONV void Perl_deprecate_old(pTHX_ const char *const s) +#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) +STATIC void S_deprecate_old(pTHX_ const char *const s) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_DEPRECATE_OLD \ assert(s) +#endif PERL_CALLCONV OP* Perl_die(pTHX_ const char* pat, ...) __attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2); |