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 (file)
--- 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 (file)
--- 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 (file)
--- 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;