Changeset b0430a6 for perlconfig.c

Timestamp:

Dec 21, 2003, 8:19:14 PM (20 years ago)

Author:

James M. Kretchmar <kretch@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

2de4f20

Parents:

72836b5

Message:

New zephyr_get_field function

File:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -26 +26 @@
   HV *h;
   SV *hr;
-  char *ptr, *ptr2, *blessas;
-  int len, i, j;
+  char *ptr, *blessas;
+  int i, j;
 
   if (!m) return &PL_sv_undef;
@@ -43 +43 @@
     j=owl_zephyr_get_num_fields(owl_message_get_notice(m));
     for (i=0; i<j; i++) {
-      ptr=owl_zephyr_get_field(owl_message_get_notice(m), i+1, &len);
-      ptr2=owl_malloc(len+1);
-      memcpy(ptr2, ptr, len);
-      ptr2[len]='\0';
-      av_push(av_zfields, newSVpvn(ptr2, len));
-      owl_free(ptr2);
+      ptr=owl_zephyr_get_field(owl_message_get_notice(m), i+1);
+      av_push(av_zfields, newSVpvn(ptr, strlen(ptr)));
+      owl_free(ptr);
     }
     hv_store(h, "fields", strlen("fields"), newRV_noinc((SV*)av_zfields), 0);