diff options
| author | Craig A. Berry <craigberry@mac.com> | 1999-08-11 09:31:11 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-11 22:11:35 +0000 |
| commit | a5da935345a673c66c903bfd517404de47f816e1 (patch) | |
| tree | 62c5038a17872bd2735b627cd3cfcc173c08377c /vms | |
| parent | 05f8a9f5a7f6c49d97cfda88caa301ccc0bdddb1 (diff) | |
| download | perl-a5da935345a673c66c903bfd517404de47f816e1.tar.gz | |
Bypass fsync(NULL) (crashes miniperl compiled with DEC C 5.2)
Sender: owner-perl5-porters@perl.org
To: vmsperl@perl.org, perl5-porters@perl.org, sarathy@activestate.com,
bailey@newman.upenn.edu
Subject: [PATCH 5.005_60] vms.c my_flush patch to circumvent fileno
problem
Message-Id: <4.2.0.58.19990811141007.00b8f8a0@mmtnt11.metamor.com>
p4raw-id: //depot/cfgperl@3959
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3576,7 +3576,7 @@ int my_flush(FILE *fp) { int res; - if ((res = fflush(fp)) == 0) { + if ((res = fflush(fp)) == 0 && fp) { #ifdef VMS_DO_SOCKETS Stat_t s; if (Fstat(fileno(fp), &s) == 0 && !S_ISSOCK(s.st_mode)) |