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

[geoff]

geoff       2003/10/13 19:33:08

  Modified:    src/modules/perl mod_perl.c
  Log:
  fix spacing
  
  Revision  Changes    Path
  1.189     +10 -11    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.188
  retrieving revision 1.189
  diff -u -r1.188 -r1.189
  --- mod_perl.c        13 Oct 2003 18:05:51 -0000      1.188
  +++ mod_perl.c        14 Oct 2003 02:33:08 -0000      1.189
  @@ -182,20 +182,19 @@
   /* 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 = gv_fetchpv("\024AINT", GV_ADDMULTI, SVt_IV);
  -    sv_setiv(GvSV(gv), PL_tainting);
  -    SvREADONLY_on(GvSV(gv));
  -}
  +    {
  +        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 = gv_fetchpv("Apache::__T", GV_ADDMULTI, SVt_PV);
  -    sv_setiv(GvSV(gv), PL_tainting);
  -    SvREADONLY_on(GvSV(gv));
  -}
  +    {
  +        GV *gv = gv_fetchpv("Apache::__T", GV_ADDMULTI, SVt_PV);
  +        sv_setiv(GvSV(gv), PL_tainting);
  +        SvREADONLY_on(GvSV(gv));
  +    }
   #endif /* MP_COMPAT_1X */
       
   }