Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 73281 invoked by uid 500); 8 Apr 2003 07:41:53 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 73270 invoked by uid 500); 8 Apr 2003 07:41:53 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 8 Apr 2003 07:41:51 -0000 Message-ID: <20030408074151.45675.qmail@icarus.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/src/modules/perl modperl_filter.c X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N stas 2003/04/08 00:41:51 Modified: src/modules/perl modperl_filter.c Log: use strcasecmp to compare strings ignoring case Revision Changes Path 1.60 +4 -4 modperl-2.0/src/modules/perl/modperl_filter.c Index: modperl_filter.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_filter.c,v retrieving revision 1.59 retrieving revision 1.60 diff -u -r1.59 -r1.60 --- modperl_filter.c 4 Apr 2003 00:08:36 -0000 1.59 +++ modperl_filter.c 8 Apr 2003 07:41:51 -0000 1.60 @@ -22,10 +22,10 @@ const char *name = f->frec->name; /* frec->name is always lowercased */ - if (ap_strcasecmp_match(name, MP_FILTER_CONNECTION_INPUT_NAME) || - ap_strcasecmp_match(name, MP_FILTER_CONNECTION_OUTPUT_NAME) || - ap_strcasecmp_match(name, MP_FILTER_REQUEST_INPUT_NAME) || - ap_strcasecmp_match(name, MP_FILTER_REQUEST_OUTPUT_NAME) ) { + if (!strcasecmp(name, MP_FILTER_CONNECTION_INPUT_NAME) || + !strcasecmp(name, MP_FILTER_CONNECTION_OUTPUT_NAME) || + !strcasecmp(name, MP_FILTER_REQUEST_INPUT_NAME) || + !strcasecmp(name, MP_FILTER_REQUEST_OUTPUT_NAME) ) { return ((modperl_filter_ctx_t *)f->ctx)->handler->name; } else {