From ecfd064986aef03b9b7d8b56da83ae37ff435721 Mon Sep 17 00:00:00 2001 From: Leon Timmermans Date: Thu, 20 Jan 2011 22:06:38 +0100 Subject: Fixes 'raw' layer for perl#80764 Made a ':raw' open do what it advertises to do (first open the file, then binmode it), instead of leaving off the top layer. --- perlio.c | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'perlio.c') diff --git a/perlio.c b/perlio.c index a89bf8b87a..3ce31d182a 100644 --- a/perlio.c +++ b/perlio.c @@ -2021,20 +2021,6 @@ PERLIO_FUNCS_DECL(PerlIO_byte) = { NULL, /* set_ptrcnt */ }; -PerlIO * -PerlIORaw_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, - IV n, const char *mode, int fd, int imode, int perm, - PerlIO *old, int narg, SV **args) -{ - PerlIO_funcs * const tab = PerlIO_default_btm(); - PERL_UNUSED_ARG(self); - if (tab && tab->Open) - return (*tab->Open) (aTHX_ tab, layers, n - 1, mode, fd, imode, perm, - old, narg, args); - SETERRNO(EINVAL, LIB_INVARG); - return NULL; -} - PERLIO_FUNCS_DECL(PerlIO_raw) = { sizeof(PerlIO_funcs), "raw", @@ -2042,7 +2028,7 @@ PERLIO_FUNCS_DECL(PerlIO_raw) = { PERLIO_K_DUMMY, PerlIORaw_pushed, PerlIOBase_popped, - PerlIORaw_open, + PerlIOBase_open, NULL, NULL, NULL, -- cgit v1.2.1