Changeset 8f95fc4 for perlconfig.c
- Timestamp:
- Dec 25, 2013, 2:45:30 PM (10 years ago)
- Children:
- 58777e9
- Parents:
- 7dcef03
- git-author:
- Anders Kaseorg <andersk@mit.edu> (12/25/13 12:17:55)
- git-committer:
- Anders Kaseorg <andersk@mit.edu> (12/25/13 14:45:30)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
r7dcef03 r8f95fc4 69 69 } 70 70 71 static void owl_perlconfig_store_attribute(GQuark key_id, gpointer data, gpointer h) 72 { 73 (void)hv_store(h, g_quark_to_string(key_id), strlen(data), 74 owl_new_sv(data), 0); 75 } 76 71 77 CALLER_OWN SV *owl_perlconfig_message2hashref(const owl_message *m) 72 78 { … … 76 82 char *ptr, *utype, *blessas; 77 83 const char *f; 78 int i;79 const owl_pair *pair;80 84 const owl_filter *wrap; 81 85 … … 112 116 } 113 117 114 for (i = 0; i < m->attributes->len; i++) { 115 pair = m->attributes->pdata[i]; 116 (void)hv_store(h, owl_pair_get_key(pair), strlen(owl_pair_get_key(pair)), 117 owl_new_sv(owl_pair_get_value(pair)),0); 118 } 118 g_datalist_foreach(&((owl_message *)m)->attributes, owl_perlconfig_store_attribute, h); 119 119 120 120 MSG2H(h, type);
Note: See TracChangeset
for help on using the changeset viewer.