Add fallback to tmpfile for use in cases where user's relying on

       ACLs on SYS$SCRATCH to permit file creation. (based on Charles
       Lane's patch)

p4raw-id: //depot/vmsperl@6158

1 files changed, 12 insertions, 0 deletions

diff --git a/vms/vmsish.h b/vms/vmsish.h
index a181e7c3d9..382e314743 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -110,6 +110,7 @@
 #define kill_file		Perl_kill_file
 #define my_mkdir		Perl_my_mkdir
 #define my_chdir		Perl_my_chdir
+#define my_tmpfile		Perl_my_tmpfile
 #define my_utime		Perl_my_utime
 #define rmsexpand	Perl_rmsexpand
 #define rmsexpand_ts	Perl_rmsexpand_ts
@@ -175,6 +176,16 @@
 #  define vfork my_vfork
 #endif
 
+/*
+ * Toss in a shim to tmpfile which creates a plain temp file if the
+ * RMS tmp mechanism won't work (e.g. if someone is relying on ACLs
+ * from a specific directory to permit creation of files).
+ */
+#ifndef DONT_MASK_RTL_CALLS
+#  define tmpfile my_tmpfile
+#endif
+
+
 /* BIG_TIME:
  *	This symbol is defined if Time_t is an unsigned type on this system.
  */
@@ -643,6 +654,7 @@ int	do_rmdir (char *);
 int	kill_file (char *);
 int	my_mkdir (char *, Mode_t);
 int	my_chdir (char *);
+FILE *	my_tmpfile (void);
 int	my_utime (char *, struct utimbuf *);
 char *	rmsexpand (char *, char *, char *, unsigned);
 char *	rmsexpand_ts (char *, char *, char *, unsigned);