From: Robin Barker Date: Fri, 19 Dec 1997 17:19:09 +0000 (+0000) Subject: Message-Id: <26260.9712191719@lightning.cise.npl.co.uk> X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6acef3b763804cf821b04bbbd732098df03addb7;p=p5sagit%2Fp5-mst-13.2.git Message-Id: <26260.9712191719@lightning.cise.npl.co.uk> p4raw-id: //depot/ansiperl@428 --- diff --git a/doio.c b/doio.c index dce271d..502f834 100644 --- a/doio.c +++ b/doio.c @@ -76,7 +76,7 @@ #endif bool -do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawperm, FILE *supplied_fp) +do_open(GV *gv, register char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp) { register IO *io = GvIOn(gv); PerlIO *saveifp = Nullfp; @@ -760,7 +760,7 @@ Off_t length; /* length to set file to */ #endif /* F_FREESP */ bool -do_print(register SV *sv, FILE *fp) +do_print(register SV *sv, PerlIO *fp) { register char *tmps; STRLEN len; diff --git a/sv.c b/sv.c index 645bbf8..0371100 100644 --- a/sv.c +++ b/sv.c @@ -2983,7 +2983,7 @@ sv_collxfrm(SV *sv, STRLEN *nxp) #endif /* USE_LOCALE_COLLATE */ char * -sv_gets(register SV *sv, register FILE *fp, I32 append) +sv_gets(register SV *sv, register PerlIO *fp, I32 append) { dTHR; char *rsptr; diff --git a/toke.c b/toke.c index 42da6a9..3c4ed6e 100644 --- a/toke.c +++ b/toke.c @@ -1195,7 +1195,7 @@ filter_read(int idx, SV *buf_sv, int maxlen) static char * -filter_gets(register SV *sv, register FILE *fp, STRLEN append) +filter_gets(register SV *sv, register PerlIO *fp, STRLEN append) { #ifdef WIN32FILTER if (!rsfp_filters) { diff --git a/util.c b/util.c index b81a12c..0380085 100644 --- a/util.c +++ b/util.c @@ -2013,7 +2013,7 @@ rsignal_restore(int signo, Sigsave_t *save) /* VMS' my_pclose() is in VMS.c; same with OS/2 */ #if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) I32 -my_pclose(FILE *ptr) +my_pclose(PerlIO *ptr) { Sigsave_t hstat, istat, qstat; int status;