From 6e73205105f5b52e070fbca13411b9ab4e21ee43 Mon Sep 17 00:00:00 2001 From: "John E. Malmberg" Date: Sun, 24 Jul 2005 15:09:01 -0400 Subject: [PATCH] Re: blead@25210 on OpenVMS (not good) From: "John E. Malmberg" Message-ID: <42E41F8D.3040306@qsl.net> constify Perl_unlnk p4raw-id: //depot/perl@25251 --- embed.fnc | 2 +- perl.h | 2 +- proto.h | 2 +- util.c | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/embed.fnc b/embed.fnc index 9e38ed8..b5f775f 100644 --- a/embed.fnc +++ b/embed.fnc @@ -833,7 +833,7 @@ Apd |UV |to_utf8_upper |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp Apd |UV |to_utf8_title |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp Apd |UV |to_utf8_fold |NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp #if defined(UNLINK_ALL_VERSIONS) -Ap |I32 |unlnk |NN char* f +Ap |I32 |unlnk |NN const char* f #endif Apd |I32 |unpack_str |NN const char *pat|NN const char *patend|NN const char *s \ |NULLOK const char *strbeg|NN const char *strend|NULLOK char **new_s \ diff --git a/perl.h b/perl.h index c1d08bb..6889fce 100644 --- a/perl.h +++ b/perl.h @@ -3468,7 +3468,7 @@ char *getlogin (void); #ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */ #define UNLINK unlnk -I32 unlnk (char*); +I32 unlnk (const char*); #else #define UNLINK PerlLIO_unlink #endif diff --git a/proto.h b/proto.h index e3822d4..41b553a 100644 --- a/proto.h +++ b/proto.h @@ -2056,7 +2056,7 @@ PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp) __attribute__nonnull__(pTHX_2); #if defined(UNLINK_ALL_VERSIONS) -PERL_CALLCONV I32 Perl_unlnk(pTHX_ char* f) +PERL_CALLCONV I32 Perl_unlnk(pTHX_ const char* f) __attribute__nonnull__(pTHX_1); #endif diff --git a/util.c b/util.c index 7bd99f5..6a8c4a6 100644 --- a/util.c +++ b/util.c @@ -1563,7 +1563,7 @@ Perl_setenv_getix(pTHX_ const char *nam) #ifdef UNLINK_ALL_VERSIONS I32 -Perl_unlnk(pTHX_ char *f) /* unlink all versions of a file */ +Perl_unlnk(pTHX_ const char *f) /* unlink all versions of a file */ { I32 i; -- 2.7.4