diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-07-24 12:47:26 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-07-24 22:35:56 +0000 |
| commit | 9e7f2f8cb5962d385bbc6391a6b737bba4502087 (patch) | |
| tree | 3270042df7deb62ac2b78639a258bd2aba5c2028 /doio.c | |
| parent | c46ec1f410f930810c1c3e760696951bc26b1248 (diff) | |
| download | perl-9e7f2f8cb5962d385bbc6391a6b737bba4502087.tar.gz | |
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
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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--; } } |