diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-10-19 11:14:27 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:02 +0200 |
| commit | fd9f609b370eafba6edf2f9a6a642062b585680a (patch) | |
| tree | 2d3e44b1e5d5c4063e9e6f54d2b55c8426e478f8 /universal.c | |
| parent | 847cc851bfb3f7e208058189369c4b201c5073c0 (diff) | |
| download | perl-fd9f609b370eafba6edf2f9a6a642062b585680a.tar.gz | |
universal.c: use new SvPVCLEAR and constant string friendly macros
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/universal.c b/universal.c index 174003105f..345b75e815 100644 --- a/universal.c +++ b/universal.c @@ -665,19 +665,19 @@ XS(XS_PerlIO_get_layers) switch (*key) { case 'i': - if (klen == 5 && memEQ(key, "input", 5)) { + if (memEQs(key, klen, "input")) { input = SvTRUE(*valp); break; } goto fail; case 'o': - if (klen == 6 && memEQ(key, "output", 6)) { + if (memEQs(key, klen, "output")) { input = !SvTRUE(*valp); break; } goto fail; case 'd': - if (klen == 7 && memEQ(key, "details", 7)) { + if (memEQs(key, klen, "details")) { details = SvTRUE(*valp); break; } |