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, 2 insertions, 2 deletions

diff --git a/doio.c b/doio.c
index 39c0480be5..b84a56e908 100644
--- a/doio.c
+++ b/doio.c
@@ -1835,14 +1835,14 @@ nothing in the core.
 	    s = SvPV_nolen_const(*mark);
 	    APPLY_TAINT_PROPER();
 	    if (PL_euid || PL_unsafe) {
-               if (UNLINK((char *)s))
+		if (UNLINK(s))
 		    tot--;
 	    }
 	    else {	/* don't let root wipe out directories without -U */
 		if (PerlLIO_lstat(s,&PL_statbuf) < 0 || S_ISDIR(PL_statbuf.st_mode))
 		    tot--;
 		else {
-                   if (UNLINK((char *)s))
+		    if (UNLINK(s))
 			tot--;
 		}
 	    }