Change 33477 by [EMAIL PROTECTED] on 2008/03/11 17:28:10
Integrate:
[ 33451]
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/maint-5.10/perl/vms/vms.c#4 integrate
Differences ...
==== //depot/maint-5.10/perl/vms/vms.c#4 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#3~33121~ 2008-01-30 03:03:49.000000000 -0800
+++ perl/vms/vms.c 2008-03-11 10:28:10.000000000 -0700
@@ -10423,7 +10423,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.
