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

[dougm]

dougm       02/01/28 20:49:37

  Modified:    src/modules/perl modperl_util.c
  Log:
  prevent segv in modperl_errsv() if ERRSV contains a '%'
  
  Revision  Changes    Path
  1.34      +2 -2      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.33
  retrieving revision 1.34
  diff -u -r1.33 -r1.34
  --- modperl_util.c    8 Jan 2002 01:29:23 -0000       1.33
  +++ modperl_util.c    29 Jan 2002 04:49:37 -0000      1.34
  @@ -252,10 +252,10 @@
           }
   #endif
           if (r) {
  -            ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, SvPV(sv, n_a));
  +            ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "%s", SvPV(sv, n_a));
           }
           else {
  -            ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, SvPV(sv, n_a));
  +            ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, "%s", SvPV(sv, n_a));
           }
   
           return status;