From fd9f609b370eafba6edf2f9a6a642062b585680a Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Wed, 19 Oct 2016 11:14:27 +0200
Subject: universal.c: use new SvPVCLEAR and constant string friendly macros

---
 universal.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'universal.c')

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;
 		       }
-- 
cgit v1.2.1