strlen(foo) rather than strchr(foo, 0) makes simpler code, and is

likely to be a more efficient implementation.

p4raw-id: //depot/perl@28236

diff --git a/perlio.c b/perlio.c
index a0cb4a4..a4b7bb4 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -1423,11 +1423,11 @@ PerlIO_context_layers(pTHX_ const char *mode)
            type = SvPV_const(layers, len);
            if (type && mode[0] != 'r') {
                /*
-                * Skip to write part
+                * Skip to write part, which is separated by a '\0'
                 */
-               const char * const s = strchr(type, 0);
-               if (s && (STRLEN)(s - type) < len) {
-                   type = s + 1;
+               STRLEN read_len = strlen(type);
+               if (read_len < len) {
+                   type += read_len + 1;
                }
            }
        }