From: John E. Malmberg <wb8tyw@qsl.net>
Date: Sun, 23 Mar 2008 14:29:25 +0000 (-0500)
Subject: configure.com and vms.c fixes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed1b9de06a0ca967d0a805d341b8c031df2a4b41;p=p5sagit%2Fp5-mst-13.2.git

configure.com and vms.c fixes.
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <47E6AF95.1000704@qsl.net>

p4raw-id: //depot/perl@33550
---

diff --git a/configure.com b/configure.com
index 37668b5..4c551e5 100644
--- a/configure.com
+++ b/configure.com
@@ -3948,6 +3948,12 @@ $ tmp = "sys/mode.h"
 $ GOSUB inhdr
 $ i_sysmode = tmp
 $!
+$! Check for poll.h
+$!
+$ tmp = "sys/poll.h"
+$ gosub inhdr
+$ i_syspoll = tmp
+$!
 $! Check for sys/access.h
 $!
 $ tmp = "sys/access.h"
@@ -6285,6 +6291,7 @@ $ WC "i_sysmode='" + i_sysmode + "'"
 $ WC "i_sysmount='undef'"
 $ WC "i_sysndir='undef'"
 $ WC "i_sysparam='undef'"
+$ WC "i_syspoll='" + i_syspoll + "'"
 $ WC "i_sysresrc='undef'"
 $ WC "i_syssecrt='" + i_syssecrt + "'"
 $ WC "i_sysselct='undef'"
diff --git a/vms/vms.c b/vms/vms.c
index 3f1fa5c..82d612a 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2568,6 +2568,9 @@ int unix_status;
 	case RMS$_WLK:	/* Device write locked */
 		unix_status = EACCES;
 		break;
+	case RMS$_MKD:  /* Failed to mark for delete */
+		unix_status = EPERM;
+		break;
 	/* case RMS$_NMF: */  /* No more files */
 	}
     }
@@ -10433,7 +10436,7 @@ Perl_my_flush(pTHX_ FILE *fp)
     if ((res = fflush(fp)) == 0 && fp) {
 #ifdef VMS_DO_SOCKETS
 	Stat_t s;
-	if (fstat(fileno(fp), (stat_t *)&s) == 0 && !S_ISSOCK(s.st_mode))
+	if (fstat(fileno(fp), &s.crtl_stat) == 0 && !S_ISSOCK(s.st_mode))
 #endif
 	    res = fsync(fileno(fp));
     }