From 07d121d92015bba46886a5db08466e60f4112a7c Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 10 Jul 2001 02:06:57 +0000
Subject: [PATCH] PerlIO ":encoding(foobar)" temporary fix. Not really correct,
 I think, since the change means that prefixes match.

p4raw-id: //depot/perl@11248
---
 perlio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perlio.c b/perlio.c
index e20563a..65dfa59 100644
--- a/perlio.c
+++ b/perlio.c
@@ -504,7 +504,7 @@ PerlIO_find_layer(pTHX_ const char *name, STRLEN len, int load)
  for (i=0; i < PerlIO_known_layers->cur; i++)
   {
    PerlIO_funcs *f = PerlIO_known_layers->array[i].funcs;
-   if (strEQ(f->name,name))
+   if (strnEQ(f->name,name,len))
     {
      PerlIO_debug("%.*s => %p\n",(int)len,name,f);
      return f;
-- 
2.7.4