Change 33550 by [EMAIL PROTECTED] on 2008/03/24 08:25:46
Subject: [EMAIL PROTECTED] configure.com and vms.c fixes.
From: "John E. Malmberg" <[EMAIL PROTECTED]>
Date: Sun, 23 Mar 2008 14:29:25 -0500
Message-id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/configure.com#280 edit
... //depot/perl/vms/vms.c#226 edit
Differences ...
==== //depot/perl/configure.com#280 (text) ====
Index: perl/configure.com
--- perl/configure.com#279~33438~ 2008-03-04 19:14:28.000000000 -0800
+++ perl/configure.com 2008-03-24 01:25:46.000000000 -0700
@@ -3948,6 +3948,12 @@
$ 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_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'"
==== //depot/perl/vms/vms.c#226 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#225~33451~ 2008-03-07 05:48:58.000000000 -0800
+++ perl/vms/vms.c 2008-03-24 01:25:46.000000000 -0700
@@ -2568,6 +2568,9 @@
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 @@
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));
}
End of Patch.
