Changeset f7a61ef for perlconfig.c
- Timestamp:
- Dec 17, 2008, 3:00:21 PM (15 years ago)
- Branches:
- master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- c415aca
- Parents:
- 3048f1f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
r3ea31b6 rf7a61ef 349 349 } 350 350 351 /* returns 0 on success */352 int owl_perlconfig_get_hashkeys(char *hashname, owl_list *l)353 {354 HV *hv;355 HE *he;356 char *key;357 I32 i;358 359 if (owl_list_create(l)) return(-1);360 hv = get_hv(hashname, FALSE);361 if (!hv) return(-1);362 i = hv_iterinit(hv);363 while ((he = hv_iternext(hv))) {364 key = hv_iterkey(he, &i);365 if (key) {366 owl_list_append_element(l, owl_strdup(key));367 }368 }369 return(0);370 }371 372 351 /* caller is responsible for freeing returned string */ 373 352 char *owl_perlconfig_execute(char *line)
Note: See TracChangeset
for help on using the changeset viewer.