At 5:48 PM -0400 7/24/05, John E. Malmberg wrote:
>>
>> if (UNLINK(s))
>>....................^
>>%CC-W-NOTCONSTQUAL, In this statement, the referenced type of the pointer
>>value "(s)" is const, but the referenced type of the target of this
>>assignment is not.
>>at line number 1838 in file USER1:[ABELTJE.PERL-CURRENT]DOIO.C;1
>
>Ok, I am reproducing the problem now.
And this should take care of it. Accidentally left out of my patch of two hours
ago.
--- doio.c_orig Sat Jul 23 18:54:47 2005
+++ doio.c Sat Jul 23 18:54:48 2005
@@ -1835,14 +1835,14 @@
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--;
}
}
[end of patch]
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
