diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-05-20 21:52:58 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-05-20 21:52:58 +0200 |
commit | 38a124f06b8ced6241a4e9b1c3408609d2da87e9 (patch) | |
tree | eef665e16ade6f14475b224ea343fbdff9c01481 /proto.h | |
parent | 179c85a2d774d3be8975d7f80a3ae831be6dc4cd (diff) | |
download | perl-38a124f06b8ced6241a4e9b1c3408609d2da87e9.tar.gz |
Merge the bulk of Perl_magic_clearsig() into Perl_magic_setsig().
The comment at the top of Perl_magic_clearsig() said:
XXX Some of this code was copied from Perl_magic_setsig. A little
refactoring might be in order.
and it was not wrong.
Perl_magic_clearsig() is almost equivalent to Perl_magic_setsig() with the new
signal handler as "DEFAULT". Externally, the sv parameter to Perl_magic_setsig()
was Not NULL, so use a NULL sv to signal that the code is being called as
Perl_magic_clearsig(), for the places where the behaviour of the two diverges.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1731,10 +1731,9 @@ PERL_CALLCONV int Perl_magic_setregexp(pTHX_ SV* sv, MAGIC* mg) assert(sv); assert(mg) PERL_CALLCONV int Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg) - __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_MAGIC_SETSIG \ - assert(sv); assert(mg) + assert(mg) PERL_CALLCONV int Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg) __attribute__nonnull__(pTHX_1) |