This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Additional mathoms from doio.c
authorSteve Peters <steve@fisharerojo.org>
Sat, 29 Oct 2005 11:47:55 +0000 (11:47 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sat, 29 Oct 2005 11:47:55 +0000 (11:47 +0000)
p4raw-id: //depot/perl@25873

doio.c
mathoms.c

diff --git a/doio.c b/doio.c
index aa664a2..102a07a 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -67,16 +67,6 @@ Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw,
 }
 
 bool
-Perl_do_open9(pTHX_ GV *gv, register const char *name, I32 len, int as_raw,
-             int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs,
-             I32 num_svs)
-{
-    PERL_UNUSED_ARG(num_svs);
-    return do_openn(gv, name, len, as_raw, rawmode, rawperm,
-                   supplied_fp, &svs, 1);
-}
-
-bool
 Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw,
              int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp,
              I32 num_svs)
@@ -1224,20 +1214,6 @@ fail_discipline:
     return mode;
 }
 
-int
-Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
-{
- /* The old body of this is now in non-LAYER part of perlio.c
-  * This is a stub for any XS code which might have been calling it.
-  */
- const char *name = ":raw";
-#ifdef PERLIO_USING_CRLF
- if (!(mode & O_BINARY))
-     name = ":crlf";
-#endif
- return PerlIO_binmode(aTHX_ fp, iotype, mode, name);
-}
-
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE)
 I32
 my_chsize(int fd, Off_t length)
index 09eb351..d58beb8 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -339,6 +339,32 @@ Perl_av_fake(pTHX_ register I32 size, register SV **strp)
     return av;
 }
 
+bool
+Perl_do_open9(pTHX_ GV *gv, register const char *name, I32 len, int 
+as_raw,
+              int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs,
+              I32 num_svs)
+{
+    PERL_UNUSED_ARG(num_svs);
+    return do_openn(gv, name, len, as_raw, rawmode, rawperm,
+                    supplied_fp, &svs, 1);
+}
+
+int
+Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
+{
+ /* The old body of this is now in non-LAYER part of perlio.c
+  * This is a stub for any XS code which might have been calling it.
+  */
+ const char *name = ":raw";
+#ifdef PERLIO_USING_CRLF
+ if (!(mode & O_BINARY))
+     name = ":crlf";
+#endif
+ return PerlIO_binmode(aTHX_ fp, iotype, mode, name);
+}
+
+
 /*
  * Local variables:
  * c-indentation-style: bsd