From: John E. Malmberg <wb8tyw@qsl.net>
Date: Sun, 24 Jul 2005 19:09:01 +0000 (-0400)
Subject: Re: blead@25210 on OpenVMS (not good)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e73205105f5b52e070fbca13411b9ab4e21ee43;p=p5sagit%2Fp5-mst-13.2.git

Re: blead@25210 on OpenVMS (not good)
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <42E41F8D.3040306@qsl.net>

constify Perl_unlnk

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

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;