Change 33451 by [EMAIL PROTECTED] on 2008/03/07 13:48:58
On VMS, don't call flex_stat from my_flush as the latter may be
called during global destruction and the former checks hints flags
that depend on the interpreter's still existing.
Affected files ...
... //depot/perl/vms/vms.c#225 edit
Differences ...
==== //depot/perl/vms/vms.c#225 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#224~33343~ 2008-02-21 16:20:45.000000000 -0800
+++ perl/vms/vms.c 2008-03-07 05:48:58.000000000 -0800
@@ -10433,7 +10433,7 @@
if ((res = fflush(fp)) == 0 && fp) {
#ifdef VMS_DO_SOCKETS
Stat_t s;
- if (Fstat(fileno(fp), &s) == 0 && !S_ISSOCK(s.st_mode))
+ if (fstat(fileno(fp), (stat_t *)&s) == 0 && !S_ISSOCK(s.st_mode))
#endif
res = fsync(fileno(fp));
}
End of Patch.
