This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: blead@25210 on OpenVMS (not good)
authorCraig A. Berry <craigberry@mac.com>
Sun, 24 Jul 2005 17:47:26 +0000 (12:47 -0500)
committerNicholas Clark <nick@ccl4.org>
Sun, 24 Jul 2005 22:35:56 +0000 (22:35 +0000)
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

doio.c

diff --git a/doio.c b/doio.c
index 9cd1326..73217bf 100644 (file)
--- 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) {
            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 {
                    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--;
                }
            }
                        tot--;
                }
            }