From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 23 Mar 2001 10:20:46 +0000 (+0000)
Subject: Render -Duseperlio functional again.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e334b7bcf49bf053aa25da896a1ff98c12dd228;p=p5sagit%2Fp5-mst-13.2.git

Render -Duseperlio functional again.
 - this is "quick fix" which calls PerlIO_apply_layers after opening,
   which is what old scheme did. New scheme needs to change that
   to make open(...,\$scalar) etc. work but this will do for now.

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

diff --git a/perlio.c b/perlio.c
index d192892..9c7e3cd 100644
--- a/perlio.c
+++ b/perlio.c
@@ -808,7 +808,15 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd, int imode, int
  PerlIO_funcs *tab = (f && *f) ? PerlIOBase(f)->tab : PerlIO_top_layer(aTHX_ layers);
  if (!_perlio)
   PerlIO_stdstreams();
- return (*tab->Open)(aTHX_ tab,mode,fd,imode,perm,f,narg,args);
+ PerlIO_debug("openn(%s,'%s','%s',%d,%x,%o,%p,%d,%p)\n",
+              tab->name,layers,mode,fd,imode,perm,f,narg,args);
+ f = (*tab->Open)(aTHX_ tab,mode,fd,imode,perm,f,narg,args);
+ if (f)
+  {
+   if (layers && *layers)
+    PerlIO_apply_layers(aTHX_ f,mode,layers);
+  }
+ return f;
 }