Call write(fileno(fp), ...) instead of fwrite for LARGE writes.

diff --git a/Objects/fileobject.c b/Objects/fileobject.c
index 14266a7b3d37377b4361721e515b183b6242a740..b25615933781049920c37e807f60542efaaf6aef 100644 (file)
--- a/Objects/fileobject.c
+++ b/Objects/fileobject.c
@@ -441,6 +441,7 @@ file_write(f, args)
        object *args;
 {
        int n, n2;
+       char *s;
        if (f->f_fp == NULL) {
                err_badarg();
                return NULL;
@@ -451,7 +452,16 @@ file_write(f, args)
        }
        f->f_softspace = 0;
        errno = 0;
-       n2 = fwrite(getstringvalue(args), 1, n = getstringsize(args), f->f_fp);
+       n = getstringsize(args);
+       s = getstringvalue(args);
+       if (n > BUFSIZ) {
+               fflush(f->f_fp);
+               n2 = write(fileno(f->f_fp), s, n);
+               fflush(f->f_fp);
+       }
+       else {
+               n2 = fwrite(s, 1, n, f->f_fp);
+       }
        if (n2 != n) {
                if (errno == 0)
                        errno = EIO;