This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/POSIX: use _memEQs() and not memEQ() for constant string comparison
authorYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 08:50:19 +0000 (10:50 +0200)
committerYves Orton <demerphq@gmail.com>
Wed, 19 Oct 2016 11:28:00 +0000 (13:28 +0200)
ext/POSIX/POSIX.xs

index 672807a..b573f5e 100644 (file)
@@ -3006,7 +3006,7 @@ sigaction(sig, optaction, oldaction = 0)
                const char *s = SvPVX_const(ST(0));
                int i = whichsig(s);
 
-               if (i < 0 && memEQ(s, "SIG", 3))
+               if (i < 0 && _memEQs(s, "SIG"))
                    i = whichsig(s + 3);
                if (i < 0) {
                    if (ckWARN(WARN_SIGNAL))