Integrate with Sarathy.

p4raw-id: //depot/cfgperl@6290

diff --cc vms/vms.c
Simple merge

diff --cc vms/vmsish.h
index 48eda0a,382e314..104eabc
--- 1/vms/vmsish.h
--- 2/vms/vmsish.h
+++ b/vms/vmsish.h
@@@ -145,8 -109,25 +145,9 @@@
  #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
 -#define fileify_dirspec       Perl_fileify_dirspec
 -#define fileify_dirspec_ts    Perl_fileify_dirspec_ts
 -#define pathify_dirspec       Perl_pathify_dirspec
 -#define pathify_dirspec_ts    Perl_pathify_dirspec_ts
 -#define tounixspec            Perl_tounixspec
 -#define tounixspec_ts         Perl_tounixspec_ts
 -#define tovmsspec             Perl_tovmsspec
 -#define tovmsspec_ts          Perl_tovmsspec_ts
 -#define tounixpath            Perl_tounixpath
 -#define tounixpath_ts         Perl_tounixpath_ts
 -#define tovmspath             Perl_tovmspath
 -#define tovmspath_ts          Perl_tovmspath_ts
  #define vms_image_init        Perl_vms_image_init
 -#define opendir               Perl_opendir
  #define readdir               Perl_readdir
  #define telldir               Perl_telldir
  #define seekdir               Perl_seekdir
@@@ -698,8 -653,25 +709,9 @@@ char *    my_gconvert (double, int, int, c
  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);
 -char *        fileify_dirspec (char *, char *);
 -char *        fileify_dirspec_ts (char *, char *);
 -char *        pathify_dirspec (char *, char *);
 -char *        pathify_dirspec_ts (char *, char *);
 -char *        tounixspec (char *, char *);
 -char *        tounixspec_ts (char *, char *);
 -char *        tovmsspec (char *, char *);
 -char *        tovmsspec_ts (char *, char *);
 -char *        tounixpath (char *, char *);
 -char *        tounixpath_ts (char *, char *);
 -char *        tovmspath (char *, char *);
 -char *        tovmspath_ts (char *, char *);
  void  vms_image_init (int *, char ***);
 -DIR * opendir (char *);
  struct dirent *       readdir (DIR *);
  long  telldir (DIR *);
  void  seekdir (DIR *, long);