diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-01 16:43:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-01 16:47:07 +0000 |
| commit | 879d0c7269cae2ffd414e7e03bcd3bc03ba587d3 (patch) | |
| tree | dd2ef9b59739f8a8dca35e041a72286886d57ac2 /proto.h | |
| parent | e4eea5780a2bbeecb73ada4fbd62b3616735d968 (diff) | |
| download | perl-879d0c7269cae2ffd414e7e03bcd3bc03ba587d3.tar.gz | |
Remove Perl_pmflag() from the public API, and mark it as deprecated.
regcomp.c stopped using it before 5.10, leaving only toke.c. The only code on
CPAN that uses it is copies of regcomp.c. Replace it with a static function,
with a cleaner interface.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2500,7 +2500,8 @@ PERL_CALLCONV void Perl_packlist(pTHX_ SV *cat, const char *pat, const char *pat #if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C) STATIC void S_pidgone(pTHX_ Pid_t pid, int status); #endif -PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch) +PERL_CALLCONV void Perl_pmflag(pTHX_ U32 *pmfl, int ch) + __attribute__deprecated__ __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_PMFLAG \ assert(pmfl) |