cvs commit: modperl-2.0/src/modules/perl mod_perl.c

[geoff]

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 */