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 Mon, 13 Oct 2003 18:05:52 GMT
geoff       2003/10/13 11:05:52

  Modified:    src/modules/perl mod_perl.c
  Log:
  avoid multiple declare and other possible compile errors - whoops.
  Reviewed by:	stas
  
  Revision  Changes    Path
  1.188     +4 -0      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.187
  retrieving revision 1.188
  diff -u -r1.187 -r1.188
  --- mod_perl.c	13 Oct 2003 16:08:56 -0000	1.187
  +++ mod_perl.c	13 Oct 2003 18:05:51 -0000	1.188
  @@ -182,16 +182,20 @@
   /* 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));
  +}
   #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));
  +}
   #endif /* MP_COMPAT_1X */
       
   }
  
  
  

Mime
View raw message