diff options
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; } |