From a5f75d667838e8e7bb037880391f5c44476d33b4 Mon Sep 17 00:00:00 2001
From: Andy Dougherty <doughera@lafcol.lafayette.edu>
Date: Wed, 28 Feb 1996 16:49:33 -0800
Subject: perl 5.002

[editor's note: changes seem to be mostly module updates,
documentation changes and some perl API macro additions]
---
 pp_sys.c | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'pp_sys.c')

diff --git a/pp_sys.c b/pp_sys.c
index f0c9d1d564..b389f57259 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -365,7 +365,7 @@ PP(pp_binmode)
 
 #ifdef DOSISH
 #ifdef atarist
-    if (!fflush(fp) && (fp->_flag |= _IOBIN))
+    if (!Fflush(fp) && (fp->_flag |= _IOBIN))
 	RETPUSHYES;
     else
 	RETPUSHUNDEF;
@@ -452,7 +452,7 @@ PP(pp_untie)
 
 PP(pp_tied)
 {
-    dSP; dTARGET ;
+    dSP;
     SV * sv ;
     MAGIC * mg ;
 
@@ -919,7 +919,7 @@ PP(pp_leavewrite)
 	    SvCUR_set(formtarget, 0);
 	    *SvEND(formtarget) = '\0';
 	    if (IoFLAGS(io) & IOf_FLUSH)
-		(void)fflush(fp);
+		(void)Fflush(fp);
 	    PUSHs(&sv_yes);
 	}
     }
@@ -965,7 +965,7 @@ PP(pp_prtf)
 	    goto just_say_no;
 
 	if (IoFLAGS(io) & IOf_FLUSH)
-	    if (fflush(fp) == EOF)
+	    if (Fflush(fp) == EOF)
 		goto just_say_no;
     }
     SvREFCNT_dec(sv);
@@ -982,9 +982,8 @@ PP(pp_prtf)
 
 PP(pp_sysopen)
 {
-    dSP; dTARGET;
+    dSP;
     GV *gv;
-    IO *io;
     SV *sv;
     char *tmps;
     STRLEN len;
-- 
cgit v1.2.1