Special case :crlf and :raw in dummy PerlIO_apply_layers

p4raw-id: //depot/perlio@7751

1 files changed, 4 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index b386deb041..ca05ac5948 100644
--- a/perlio.c
+++ b/perlio.c
@@ -32,6 +32,10 @@
 int
 PerlIO_apply_layers(pTHX_ PerlIO *f, const char *mode, const char *names)
 {
+ if (!names || !*names || strEQ(names,":crlf") || strEQ(names,":raw"))
+  {
+   return 0;
+  } 
  Perl_croak(aTHX_ "Cannot apply \"%s\" in non-PerlIO perl",names);
  /* NOTREACHED */
  return -1;