taint.c: consting

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

p4raw-id: //depot/perl@33228

1 files changed, 1 insertions, 1 deletions

diff --git a/taint.c b/taint.c
index 5ae5ef3c6b..1bb292ab98 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;