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 /embed.fnc | |
| 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 'embed.fnc')
| -rw-r--r-- | embed.fnc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -568,7 +568,7 @@ p |int |magic_setnkeys |NN SV* sv|NN MAGIC* mg p |int |magic_setpack |NN SV* sv|NN MAGIC* mg p |int |magic_setpos |NN SV* sv|NN MAGIC* mg p |int |magic_setregexp|NN SV* sv|NN MAGIC* mg -p |int |magic_setsig |NN SV* sv|NN MAGIC* mg +p |int |magic_setsig |NULLOK SV* sv|NN MAGIC* mg p |int |magic_setsubstr|NN SV* sv|NN MAGIC* mg p |int |magic_settaint |NN SV* sv|NN MAGIC* mg p |int |magic_setuvar |NN SV* sv|NN MAGIC* mg |