Changeset e0096b7 for perlconfig.c

Timestamp:

Dec 17, 2008, 3:24:25 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

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:

c675b39

Parents:

c415aca

git-author:

Nelson Elhage <nelhage@mit.edu> (12/17/08 15:21:49)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/17/08 15:24:25)

Message:

perlconfig.c: Properly wrap eval_pv with ENTER/SAVETMPS/FREETMPS/LEAVE

Previously, we were leaking references to anything returned from perl
evaluated by owl_perlconfig_execute.

File:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -357 +357 @@
   if (!owl_global_have_config(&g)) return NULL;
 
+  ENTER;
+  SAVETMPS;
   /* execute the subroutine */
   response = eval_pv(line, FALSE);
@@ -370 +372 @@
   else
     out = owl_strdup(preout);
+  FREETMPS;
+  LEAVE;
 
   return(out);