From: Steven Schubiger <schubiger@cpan.org>
Date: Tue, 29 Jan 2008 13:47:23 +0000 (+0100)
Subject: taint.c: consting
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e1c418065bb740d7433d5a7b22db9f78b0fd25eb;p=p5sagit%2Fp5-mst-13.2.git

taint.c: consting
Message-ID: <20080129124723.GA13056@refcnt.homeunix.org>
Date: Tue, 29 Jan 2008 13:47:23 +0100

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

diff --git a/embed.fnc b/embed.fnc
index aa17276..8c050dd 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -921,7 +921,7 @@ ApR	|NV	|str_to_version	|NN SV *sv
 Ap	|SV*	|swash_init	|NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none
 Ap	|UV	|swash_fetch	|NN SV *swash|NN const U8 *ptr|bool do_utf8
 Ap	|void	|taint_env
-Ap	|void	|taint_proper	|NULLOK const char* f|NN const char* s
+Ap	|void	|taint_proper	|NULLOK const char* f|NN const char *const s
 Apd	|UV	|to_utf8_case	|NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp \
 				|NN SV **swashp|NN const char *normal|NN const char *special
 Apd	|UV	|to_utf8_lower	|NN const U8 *p|NN U8* ustrp|NULLOK STRLEN *lenp
diff --git a/proto.h b/proto.h
index 3b4875e..fa5b1b6 100644
--- a/proto.h
+++ b/proto.h
@@ -2475,7 +2475,7 @@ PERL_CALLCONV UV	Perl_swash_fetch(pTHX_ SV *swash, const U8 *ptr, bool do_utf8)
 			__attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV void	Perl_taint_env(pTHX);
-PERL_CALLCONV void	Perl_taint_proper(pTHX_ const char* f, const char* s)
+PERL_CALLCONV void	Perl_taint_proper(pTHX_ const char* f, const char *const s)
 			__attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV UV	Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special)
diff --git a/taint.c b/taint.c
index 5ae5ef3..1bb292a 100644
--- a/taint.c
+++ b/taint.c
@@ -22,7 +22,7 @@
 #include "perl.h"
 
 void
-Perl_taint_proper(pTHX_ const char *f, const char *s)
+Perl_taint_proper(pTHX_ const char *f, const char *const s)
 {
 #if defined(HAS_SETEUID) && defined(DEBUGGING)
     dVAR;