You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/05/13 05:17:54 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_apache_includes.h modperl_util.c modperl_util.h
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);