This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix open(...,"...:layer(xxx)",...)
authorNick Ing-Simmons <nik@tiuk.ti.com>
Tue, 10 Jul 2001 06:58:14 +0000 (06:58 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Tue, 10 Jul 2001 06:58:14 +0000 (06:58 +0000)
  - use memEQ not strEQ as there is '(' not '\0'

p4raw-id: //depot/perlio@11252

perlio.c

index e20563a..093cc8a 100644 (file)
--- 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 (memEQ(f->name,name,len))
     {
      PerlIO_debug("%.*s => %p\n",(int)len,name,f);
      return f;