From daba3364ed9f39ba44b28575c032f6db52d47881 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 30 Oct 2008 21:39:14 +0000 Subject: Eliminate (SV *) casts from sv.c and [tu]*.c, except for the cast in Perl_sv_magicext(), which is documented. p4raw-id: //depot/perl@34671 --- taint.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'taint.c') diff --git a/taint.c b/taint.c index 034c6e3905..bbfc248c3e 100644 --- a/taint.c +++ b/taint.c @@ -97,7 +97,7 @@ Perl_taint_env(pTHX) /* If there's no %ENV hash of if it's not magical, croak, because * it probably doesn't reflect the actual environment */ if (!GvHV(PL_envgv) || !(SvRMAGICAL(GvHV(PL_envgv)) - && mg_find((SV*)GvHV(PL_envgv), PERL_MAGIC_env))) { + && mg_find((const SV *)GvHV(PL_envgv), PERL_MAGIC_env))) { const bool was_tainted = PL_tainted; const char * const name = GvENAME(PL_envgv); PL_tainted = TRUE; -- cgit v1.2.1