After the #6519 a warning about stat() is just that,

[p5sagit/p5-mst-13.2.git] / vms / vmsish.h

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 48eda0a..104eabc 100644 (file)
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -145,6 +145,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 vms_image_init Perl_vms_image_init
 #define readdir                Perl_readdir
@@ -193,6 +194,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.
  */
@@ -698,6 +709,7 @@ char *      my_gconvert (double, int, int, 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 *);
 void   vms_image_init (int *, char ***);
 struct dirent *        readdir (DIR *);