This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tidy code in Perl_sighandler()
authorDavid Mitchell <davem@iabyn.com>
Mon, 1 Nov 2010 16:15:23 +0000 (16:15 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 1 Nov 2010 16:38:31 +0000 (16:38 +0000)
commit72048cfe48d6d611e091e3ba2d934dcf58769e2d
tree5c2a69a1f431c0b3182d729034d03befe08ed5ca
parent0c4d3b5ea916cf640ea163c5a6bcffefade55a1b
tidy code in Perl_sighandler()

1) compress

    if (...)
flag |= 1
    ...
    if (flag & 1) {
...

into

    if (...) {
flag |= 1
....

2) re-order the flag bits, since over the years some bits have become
redundant.
mg.c