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.
p4raw-link: @33451 on //depot/perl: 75ca6fb6be93753b6f530f049fb88e4001c98466

p4raw-id: //depot/maint-5.10/perl@33477
p4raw-integrated: from //depot/perl@33464 'merge in' vms/vms.c
	(@33343..)

1 files changed, 1 insertions, 1 deletions

diff --git a/vms/vms.c b/vms/vms.c
index e1e8572a17..a0f7f78716 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -10423,7 +10423,7 @@ Perl_my_flush(pTHX_ FILE *fp)
     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));
     }