Changeset ddbbcffa for perlconfig.c

Timestamp:

Feb 11, 2011, 4:31:42 PM (13 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, release-1.10, release-1.8, release-1.9

Children:

d4927a7

Parents:

35b6eb9

git-author:

Anders Kaseorg <andersk@mit.edu> (08/27/09 00:52:41)

git-committer:

Anders Kaseorg <andersk@mit.edu> (02/11/11 16:31:42)

Message:

Replace owl_free with g_free.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
Reviewed-by: Karl Ramm <kcr@mit.edu>

File:

• perlconfig.c (modified) (7 diffs)

perlconfig.c

@@ -31 +31 @@
     char *escape = owl_escape_highbit(str);
     owl_function_error("Internal error! Non-UTF-8 string encountered:\n%s", escape);
-    owl_free(escape);
+    g_free(escape);
   }
   return ret;
@@ -69 +69 @@
     (void)hv_store(ret, key, strlen(key), to_sv(element), 0);
   }
-  owl_list_cleanup(&l, owl_free);
+  owl_list_cleanup(&l, g_free);
 
   return ret;
@@ -106 +106 @@
       ptr=owl_zephyr_get_field_as_utf8(owl_message_get_notice(m), i+1);
       av_push(av_zfields, owl_new_sv(ptr));
-      owl_free(ptr);
+      g_free(ptr);
     }
     (void)hv_store(h, "fields", strlen("fields"), newRV_noinc((SV*)av_zfields), 0);
@@ -159 +159 @@
   }
   hr = sv_bless(hr,stash);
-  owl_free(utype);
-  owl_free(blessas);
+  g_free(utype);
+  g_free(blessas);
   return hr;
 }
@@ -407 +407 @@
   av_unshift(inc, 1);
   av_store(inc, 0, owl_new_sv(path));
-  owl_free(path);
+  g_free(path);
 
   eval_pv("use BarnOwl;", FALSE);
@@ -464 +464 @@
                                            :"BarnOwl::_receive_msg_legacy_wrap", m);
   }
-  if (ptr) owl_free(ptr);
+  if (ptr) g_free(ptr);
 }
 
@@ -475 +475 @@
                                            :"BarnOwl::Hooks::_new_msg", m);
   }
-  if (ptr) owl_free(ptr);
+  if (ptr) g_free(ptr);
 }