develooper Front page | perl.perl5.porters | Postings from January 2008

[PATCH] taint.c: consting

Thread Next
From:
Steven Schubiger
Date:
January 29, 2008 04:51
Subject:
[PATCH] taint.c: consting
Message ID:
20080129124723.GA13056@refcnt.homeunix.org
"make regen" required.

Steven Schubiger

diff -ru perl-current/embed.fnc perl-hack/embed.fnc
--- perl-current/embed.fnc	2008-01-29 11:56:58.000000000 +0100
+++ perl-hack/embed.fnc	2008-01-29 13:38:09.000000000 +0100
@@ -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
diff -ru perl-current/taint.c perl-hack/taint.c
--- perl-current/taint.c	2007-11-08 00:25:19.000000000 +0100
+++ perl-hack/taint.c	2008-01-29 13:40:42.000000000 +0100
@@ -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;

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About