You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2003/10/13 18:08:56 UTC
cvs commit: modperl-2.0/src/modules/perl mod_perl.c
geoff 2003/10/13 09:08:56
Modified: src/modules/perl mod_perl.c
Log:
fixed "unused variable `gv'" warning exposed when MP_COMPAT_1X=0
Revision Changes Path
1.187 +2 -3 modperl-2.0/src/modules/perl/mod_perl.c
Index: mod_perl.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
retrieving revision 1.186
retrieving revision 1.187
diff -u -r1.186 -r1.187
--- mod_perl.c 23 Sep 2003 08:04:42 -0000 1.186
+++ mod_perl.c 13 Oct 2003 16:08:56 -0000 1.187
@@ -178,19 +178,18 @@
static void set_taint_var(PerlInterpreter *perl)
{
dTHXa(perl);
- GV *gv;
/* 5.7.3+ has a built-in special ${^TAINT}, backport it to 5.6.0+ */
#if PERL_REVISION == 5 && \
(PERL_VERSION == 6 || (PERL_VERSION == 7 && PERL_SUBVERSION < 3))
- gv = gv_fetchpv("\024AINT", GV_ADDMULTI, SVt_IV);
+ GV *gv = gv_fetchpv("\024AINT", GV_ADDMULTI, SVt_IV);
sv_setiv(GvSV(gv), PL_tainting);
SvREADONLY_on(GvSV(gv));
#endif /* perl v < 5.7.3 */
#ifdef MP_COMPAT_1X
- gv = gv_fetchpv("Apache::__T", GV_ADDMULTI, SVt_PV);
+ GV *gv = gv_fetchpv("Apache::__T", GV_ADDMULTI, SVt_PV);
sv_setiv(GvSV(gv), PL_tainting);
SvREADONLY_on(GvSV(gv));
#endif /* MP_COMPAT_1X */