Change 33228 by [EMAIL PROTECTED] on 2008/02/03 15:04:41

        Subject: [PATCH] taint.c: consting
        From: Steven Schubiger <[EMAIL PROTECTED]>
        Message-ID: <[EMAIL PROTECTED]>
        Date: Tue, 29 Jan 2008 13:47:23 +0100

Affected files ...

... //depot/perl/embed.fnc#568 edit
... //depot/perl/proto.h#902 edit
... //depot/perl/taint.c#54 edit

Differences ...

==== //depot/perl/embed.fnc#568 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#567~33142~   2008-01-31 01:12:36.000000000 -0800
+++ perl/embed.fnc      2008-02-03 07:04:41.000000000 -0800
@@ -921,7 +921,7 @@
 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

==== //depot/perl/proto.h#902 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#901~33142~     2008-01-31 01:12:36.000000000 -0800
+++ perl/proto.h        2008-02-03 07:04:41.000000000 -0800
@@ -2475,7 +2475,7 @@
                        __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)

==== //depot/perl/taint.c#54 (text) ====
Index: perl/taint.c
--- perl/taint.c#53~32237~      2007-11-07 15:23:27.000000000 -0800
+++ perl/taint.c        2008-02-03 07:04:41.000000000 -0800
@@ -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;
End of Patch.

Reply via email to