cvs commit: modperl/src/modules/perl perl_util.c

[randyk]

randyk      2003/03/13 21:03:17

  Modified:    src/modules/perl perl_util.c
  Log:
  s/int/STRLEN/ to avoid warnings
  
  Revision  Changes    Path
  1.52      +2 -1      modperl/src/modules/perl/perl_util.c
  
  Index: perl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_util.c,v
  retrieving revision 1.51
  retrieving revision 1.52
  diff -u -r1.51 -r1.52
  --- perl_util.c       14 Mar 2003 04:55:59 -0000      1.51
  +++ perl_util.c       14 Mar 2003 05:03:16 -0000      1.52
  @@ -708,7 +708,8 @@
   
   int perl_sv_is_http_code(SV *errsv, int *status) 
   {
  -    int i=0, http_code=0, retval = FALSE;
  +    int retval = FALSE;
  +    STRLEN i=0, http_code=0;
       char *errpv;
       char cpcode[4];
       dTHR;