Various patches by John E. Malmberg to fix data

corruption issues on VMS. Back out change 25218 and
the parts of change 25217 that affect pp_ctl.c and
pp_sys.c.

p4raw-id: //depot/perl@25257

1 files changed, 28 insertions, 28 deletions

diff --git a/vms/vmsish.h b/vms/vmsish.h
index dea963f23b..45e831a226 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -767,48 +767,48 @@ int	Perl_vmstrnenv (const char *, char *, unsigned long int, struct dsc$descript
 #if !defined(PERL_IMPLICIT_CONTEXT)
 char *	Perl_my_getenv (const char *, bool);
 int	Perl_my_trnlnm (const char *, char *, unsigned long int);
-char *	Perl_tounixspec (char *, char *);
-char *	Perl_tounixspec_ts (char *, char *);
+char *	Perl_tounixspec (const char *, char *);
+char *	Perl_tounixspec_ts (const char *, char *);
 char *	Perl_tovmsspec (char *, char *);
 char *	Perl_tovmsspec_ts (char *, char *);
-char *	Perl_tounixpath (char *, char *);
-char *	Perl_tounixpath_ts (char *, char *);
-char *	Perl_tovmspath (char *, char *);
-char *	Perl_tovmspath_ts (char *, char *);
-int	Perl_do_rmdir (char *);
-char *	Perl_fileify_dirspec (char *, char *);
-char *	Perl_fileify_dirspec_ts (char *, char *);
-char *	Perl_pathify_dirspec (char *, char *);
-char *	Perl_pathify_dirspec_ts (char *, char *);
+char *	Perl_tounixpath (const char *, char *);
+char *	Perl_tounixpath_ts (const char *, char *);
+char *	Perl_tovmspath (const char *, char *);
+char *	Perl_tovmspath_ts (const char *, char *);
+int	Perl_do_rmdir (const char *);
+char *	Perl_fileify_dirspec (const char *, char *);
+char *	Perl_fileify_dirspec_ts (const char *, char *);
+char *	Perl_pathify_dirspec (const char *, char *);
+char *	Perl_pathify_dirspec_ts (const char *, char *);
 char *	Perl_rmsexpand (char *, char *, char *, unsigned);
 char *	Perl_rmsexpand_ts (char *, char *, char *, unsigned);
 int	Perl_trim_unixpath (char *, char*, int);
-DIR *	Perl_opendir (char *);
+DIR *	Perl_opendir (const char *);
 int	Perl_rmscopy (char *, char *, int);
-int	Perl_my_mkdir (char *, Mode_t);
+int	Perl_my_mkdir (const char *, Mode_t);
 bool	Perl_vms_do_aexec (SV *, SV **, SV **);
 #else
 char *	Perl_my_getenv (pTHX_ const char *, bool);
 int	Perl_my_trnlnm (pTHX_ const char *, char *, unsigned long int);
-char *	Perl_tounixspec (pTHX_ char *, char *);
-char *	Perl_tounixspec_ts (pTHX_ char *, char *);
+char *	Perl_tounixspec (pTHX_ const char *, char *);
+char *	Perl_tounixspec_ts (pTHX_ const char *, char *);
 char *	Perl_tovmsspec (pTHX_ char *, char *);
 char *	Perl_tovmsspec_ts (pTHX_ char *, char *);
-char *	Perl_tounixpath (pTHX_ char *, char *);
-char *	Perl_tounixpath_ts (pTHX_ char *, char *);
-char *	Perl_tovmspath (pTHX_ char *, char *);
-char *	Perl_tovmspath_ts (pTHX_ char *, char *);
-int	Perl_do_rmdir (pTHX_ char *);
-char *	Perl_fileify_dirspec (pTHX_ char *, char *);
-char *	Perl_fileify_dirspec_ts (pTHX_ char *, char *);
-char *	Perl_pathify_dirspec (pTHX_ char *, char *);
-char *	Perl_pathify_dirspec_ts (pTHX_ char *, char *);
+char *	Perl_tounixpath (pTHX_ const char *, char *);
+char *	Perl_tounixpath_ts (pTHX_ const char *, char *);
+char *	Perl_tovmspath (pTHX_ const char *, char *);
+char *	Perl_tovmspath_ts (pTHX_ const char *, char *);
+int	Perl_do_rmdir (pTHX_ const char *);
+char *	Perl_fileify_dirspec (pTHX_ const char *, char *);
+char *	Perl_fileify_dirspec_ts (pTHX_ const char *, char *);
+char *	Perl_pathify_dirspec (pTHX_ const char *, char *);
+char *	Perl_pathify_dirspec_ts (pTHX_ const char *, char *);
 char *	Perl_rmsexpand (pTHX_ char *, char *, char *, unsigned);
 char *	Perl_rmsexpand_ts (pTHX_ char *, char *, char *, unsigned);
 int	Perl_trim_unixpath (pTHX_ char *, char*, int);
-DIR *	Perl_opendir (pTHX_ char *);
+DIR *	Perl_opendir (pTHX_ const char *);
 int	Perl_rmscopy (pTHX_ char *, char *, int);
-int	Perl_my_mkdir (pTHX_ char *, Mode_t);
+int	Perl_my_mkdir (pTHX_ const char *, Mode_t);
 bool	Perl_vms_do_aexec (pTHX_ SV *, SV **, SV **);
 #endif
 char *	Perl_my_getenv_len (pTHX_ const char *, unsigned long *, bool);
@@ -817,8 +817,8 @@ void	Perl_vmssetuserlnm(pTHX_ char *name, char *eqv);
 char *	Perl_my_crypt (pTHX_ const char *, const char *);
 Pid_t	Perl_my_waitpid (pTHX_ Pid_t, int *, int);
 char *	my_gconvert (double, int, int, char *);
-int	Perl_kill_file (pTHX_ char *);
-int	Perl_my_chdir (pTHX_ char *);
+int	Perl_kill_file (pTHX_ const char *);
+int	Perl_my_chdir (pTHX_ const char *);
 FILE *	Perl_my_tmpfile ();
 #ifndef HOMEGROWN_POSIX_SIGNALS
 int	Perl_my_sigaction (pTHX_ int, const struct sigaction*, struct sigaction*);