From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 31 Dec 2000 10:06:15 +0000 (+0000)
Subject: Tweak perlio.c so that makedef.pl-exported perlsio_binmode()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb73becae469f5299394486e1d7e01e96646e994;p=p5sagit%2Fp5-mst-13.2.git

Tweak perlio.c so that makedef.pl-exported perlsio_binmode()
is available to be exported

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

diff --git a/perlio.c b/perlio.c
index a6b45be..8db2b96 100644
--- a/perlio.c
+++ b/perlio.c
@@ -33,20 +33,6 @@
 #undef PerlMemShared_free
 #define PerlMemShared_free(x) free(x)
 
-
-#ifndef PERLIO_LAYERS
-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;
-}
-
 int
 perlsio_binmode(FILE *fp, int iotype, int mode)
 {
@@ -62,6 +48,7 @@ perlsio_binmode(FILE *fp, int iotype, int mode)
     }
     return 0;
 #  else
+    dTHX;
     if (PerlLIO_setmode(fileno(fp), mode) != -1) {
 #    if defined(WIN32) && defined(__BORLANDC__)
 	/* The translation mode of the stream is maintained independent
@@ -93,6 +80,19 @@ perlsio_binmode(FILE *fp, int iotype, int mode)
 #endif
 }
 
+#ifndef PERLIO_LAYERS
+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;
+}
+
 int
 PerlIO_binmode(pTHX_ PerlIO *fp, int iotype, int mode, const char *names)
 {