perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_apache_includes.h modperl_util.c modperl_util.h
Date Mon, 13 May 2002 03:17:54 GMT
dougm       02/05/12 20:17:54

  Modified:    src/modules/perl modperl_apache_includes.h modperl_util.c
                        modperl_util.h
  Log:
  add modperl_str_toupper util function
  
  Revision  Changes    Path
  1.13      +1 -0      modperl-2.0/src/modules/perl/modperl_apache_includes.h
  
  Index: modperl_apache_includes.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_apache_includes.h,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- modperl_apache_includes.h	11 May 2002 18:55:41 -0000	1.12
  +++ modperl_apache_includes.h	13 May 2002 03:17:54 -0000	1.13
  @@ -18,6 +18,7 @@
   #include "http_core.h"
   #include "ap_mpm.h"
   
  +#include "apr_lib.h"
   #include "apr_strings.h"
   #include "apr_uri.h"
   #include "apr_date.h"
  
  
  
  1.40      +8 -0      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.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- modperl_util.c	10 May 2002 17:48:27 -0000	1.39
  +++ modperl_util.c	13 May 2002 03:17:54 -0000	1.40
  @@ -473,6 +473,14 @@
       return 0;
   }
   
  +void modperl_str_toupper(char *str)
  +{
  +    while (*str) {
  +        *str = apr_toupper(*str);
  +        ++str;
  +    }
  +}
  +
   /* XXX: same as Perl_do_sprintf(); 
    * but Perl_do_sprintf() is not part of the "public" api
    */
  
  
  
  1.32      +2 -0      modperl-2.0/src/modules/perl/modperl_util.h
  
  Index: modperl_util.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.h,v
  retrieving revision 1.31
  retrieving revision 1.32
  diff -u -r1.31 -r1.32
  --- modperl_util.h	14 Dec 2001 04:35:28 -0000	1.31
  +++ modperl_util.h	13 May 2002 03:17:54 -0000	1.32
  @@ -98,6 +98,8 @@
   #define hv_fetch_he(hv,k,l,h) \
       modperl_perl_hv_fetch_he(aTHX_ hv, k, l, h)
   
  +void modperl_str_toupper(char *str);
  +
   void modperl_perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg);
   
   void modperl_perl_call_list(pTHX_ AV *subs, const char *name);
  
  
  

Mime
View raw message