Change 11248 by jhi@alpha on 2001/07/10 02:06:57
PerlIO ":encoding(foobar)" temporary fix.
Not really correct, I think, since the change means
that prefixes match.
Affected files ...
... //depot/perl/perlio.c#112 edit
Differences ...
==== //depot/perl/perlio.c#112 (text) ====
Index: perl/perlio.c
--- perl/perlio.c.~1~ Mon Jul 9 20:15:05 2001
+++ perl/perlio.c Mon Jul 9 20:15:05 2001
@@ -504,7 +504,7 @@
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;
End of Patch.
