Replace do_open() with a macro to call do_openn() with the extra two

0 paramters. Move the old body to mathoms.c.

p4raw-id: //depot/perl@25889

1 files changed, 8 insertions, 1 deletions

diff --git a/mathoms.c b/mathoms.c
index f9eda303c7..eef80f5324 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -604,6 +604,14 @@ Perl_av_fake(pTHX_ register I32 size, register SV **strp)
 }
 
 bool
+Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw,
+	     int rawmode, int rawperm, PerlIO *supplied_fp)
+{
+    return do_openn(gv, name, len, as_raw, rawmode, rawperm,
+		    supplied_fp, (SV **) NULL, 0);
+}
+
+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,
@@ -628,7 +636,6 @@ Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode)
  return PerlIO_binmode(aTHX_ fp, iotype, mode, name);
 }
 
-
 /*
  * Local variables:
  * c-indentation-style: bsd