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;
if (!names && (O_TEXT != O_BINARY && (mode & O_BINARY)))
{
PerlIO *top = f;
- PerlIOl *l;
- while ((l = *top))
+ while (*top)
{
if (PerlIOBase(top)->tab == &PerlIO_crlf)
{