From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 24 Jul 2005 17:47:26 +0000 (-0500)
Subject: Re: blead@25210 on OpenVMS (not good)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e7f2f8cb5962d385bbc6391a6b737bba4502087;p=p5sagit%2Fp5-mst-13.2.git

Re: blead@25210 on OpenVMS (not good)
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <p06230906bf09caa9618b@[172.16.52.1]>
Date: Sun, 24 Jul 2005 17:47:26 -0500

p4raw-id: //depot/perl@25218
---

diff --git a/doio.c b/doio.c
index 9cd1326..73217bf 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(s))
+               if (UNLINK((char *)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(s))
+                   if (UNLINK((char *)s))
 			tot--;
 		}
 	    }