[Patch] APR::Table->do() using apr_hash instead of apr_table for filtering

[Philippe M . Chiasson]

I think the subject should be self-explanatory ;-)

-- 
Philippe M. Chiasson  <[EMAIL PROTECTED]>
  Extropia's Resident System Guru
     http://www.eXtropia.com/

You can solve any problem by adding a level of
indirection--except the problem of having too many levels
of indirection. 
        -- Larry Wall

perl -e '$$=\${gozer};{$_=unpack(P26,pack(L,$$));/^Just Another Perl 
Hacker!\n$/&&print||$$++&&redo}'


Index: xs/APR/Table/APR__Table.h
===================================================================
RCS file: /home/anoncvs/mod_perl-2-cvs/xs/APR/Table/APR__Table.h,v
retrieving revision 1.2
diff -u -I'$Id' -I'$Revision' -r1.2 APR__Table.h
--- xs/APR/Table/APR__Table.h   2001/09/15 18:21:48     1.2
+++ xs/APR/Table/APR__Table.h   2001/09/19 04:41:35
@@ -1,6 +1,6 @@
 typedef struct {
     SV *cv;
-    apr_table_t *filter; /*XXX: or maybe a mgv ? */
+    apr_hash_t *filter;
     PerlInterpreter *perl;
 } mpxs_table_do_cb_data_t;
 
@@ -21,7 +21,7 @@
 
     /* Skip entries if not in our filter list */
     if (tdata->filter) {
-        if (!apr_table_get(tdata->filter, key)) {
+        if (!apr_hash_get(tdata->filter, key, APR_HASH_KEY_STRING)) {
             return 1;
         }
     }
@@ -62,12 +62,14 @@
 #endif
 
     if (items > 2) {
+        char *filter_entry;
         STRLEN len;
-        tdata.filter = apr_table_make(table->a.pool, items-2);
+        
+        tdata.filter = apr_hash_make(table->a.pool);
 
         while (MARK <= SP) {
-            /* XXX: can we use apr_table_setn here? */
-            apr_table_set(tdata.filter, SvPV(*MARK,len), "1");
+            filter_entry = SvPV(*MARK, len);
+            apr_hash_set(tdata.filter, filter_entry, len, "1");
             MARK++;
         }
     }

PGP signature