diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-10-19 10:49:40 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:00 +0200 |
| commit | 752602b13595db3fed3bcca882e24d5fa533be42 (patch) | |
| tree | ddb28cefc572273d22b4a93fe01ea57e4276ffa9 /ext/B | |
| parent | c0dea56fe487504493d97df5a7a6be57a2d2834d (diff) | |
| download | perl-752602b13595db3fed3bcca882e24d5fa533be42.tar.gz | |
ext/B: use strEQs() and strEQ() in expressions
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 0490352e9b..03529010ca 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -894,11 +894,11 @@ CODE: int i; IV result = -1; ST(0) = sv_newmortal(); - if (strncmp(name,"pp_",3) == 0) + if (strEQs(name,"pp_")) name += 3; for (i = 0; i < PL_maxo; i++) { - if (strcmp(name, PL_op_name[i]) == 0) + if (strEQ(name, PL_op_name[i])) { result = i; break; |