From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 19 Nov 2000 17:05:36 +0000 (+0000)
Subject: Special case :crlf and :raw in dummy PerlIO_apply_layers
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95c70f2077ea14f8e2426dbcac9828b259a86bf2;p=p5sagit%2Fp5-mst-13.2.git

Special case :crlf and :raw in dummy PerlIO_apply_layers

p4raw-id: //depot/perlio@7751
---

diff --git a/perlio.c b/perlio.c
index b386deb..ca05ac5 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;