diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-09-30 13:48:58 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:20 -0700 |
| commit | 84c7b88ccae183c236ad7ca5cdb8dd097de25420 (patch) | |
| tree | 577a4bbf1ee6e20f10c3fd0065f5b3de8b54741d /proto.h | |
| parent | 89a5757c96fe4f4c0a6bfec37e8037a7d311ee5a (diff) | |
| download | perl-84c7b88ccae183c236ad7ca5cdb8dd097de25420.tar.gz | |
whichsig nul-cleanup.
This adds _pv, _pvn, and _pv versions of whichsig() in mg.c, which
get both kill "NAME" and %SIG lookup nul-clean.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -4643,11 +4643,21 @@ PERL_CALLCONV void Perl_watch(pTHX_ char** addr) #define PERL_ARGS_ASSERT_WATCH \ assert(addr) -PERL_CALLCONV I32 Perl_whichsig(pTHX_ const char* sig) +PERL_CALLCONV I32 Perl_whichsig_pv(pTHX_ const char* sig) __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_WHICHSIG \ +#define PERL_ARGS_ASSERT_WHICHSIG_PV \ assert(sig) +PERL_CALLCONV I32 Perl_whichsig_pvn(pTHX_ const char* sig, STRLEN len) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_WHICHSIG_PVN \ + assert(sig) + +PERL_CALLCONV I32 Perl_whichsig_sv(pTHX_ SV* sigsv) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_WHICHSIG_SV \ + assert(sigsv) + PERL_CALLCONV void Perl_write_to_stderr(pTHX_ SV* msv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_WRITE_TO_STDERR \ |