Changeset d199207 for perlconfig.c

Timestamp:

Mar 11, 2012, 10:58:01 PM (12 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.9

Children:

3e34a69, 5111af4, d6b8b50

Parents:

a03a409

git-author:

Anders Kaseorg <andersk@mit.edu> (01/19/12 21:32:33)

git-committer:

David Benjamin <davidben@mit.edu> (03/11/12 22:58:01)

Message:

zephyr: Use field iterator interface to avoid quadratic loops

Signed-off-by: Anders Kaseorg <andersk@mit.edu>

File:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -75 +75 @@
   const char *type;
   char *ptr, *utype, *blessas;
-  int i, j;
+  const char *f;
+  int i;
   const owl_pair *pair;
   const owl_filter *wrap;
@@ -96 +97 @@
 
     av_zfields = newAV();
-    j=owl_zephyr_get_num_fields(owl_message_get_notice(m));
-    for (i=0; i<j; i++) {
-      ptr=owl_zephyr_get_field_as_utf8(owl_message_get_notice(m), i+1);
+    for (f = owl_zephyr_first_raw_field(owl_message_get_notice(m)); f != NULL;
+         f = owl_zephyr_next_raw_field(owl_message_get_notice(m), f)) {
+      ptr=owl_zephyr_field_as_utf8(owl_message_get_notice(m), f);
       av_push(av_zfields, owl_new_sv(ptr));
       g_free(ptr);