perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl mod_perl.c
Date Tue, 14 Oct 2003 02:33:08 GMT
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 */
       
   }
  
  
  

Mime
View raw message