Changeset bb79a52 for perlglue.xs

Timestamp:

Sep 28, 2009, 3:15:55 PM (15 years ago)

Author:

Karl Ramm <kcr@1ts.org>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

de3f641

Parents:

de8945b

git-author:

Karl Ramm <kcr@1ts.org> (09/25/09 22:53:23)

git-committer:

Karl Ramm <kcr@1ts.org> (09/28/09 15:15:55)

Message:

BarnOwl::get_zephyr_variable gets you a .zephyr.vars variable

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -416 +416 @@
         }
 
+char *
+get_zephyr_variable(name)
+        char *name;
+        PREINIT:
+                char *result;
+        CODE:
+                result = (char *)owl_zephyr_get_variable(name);
+                result = result ? owl_strdup(result) : result;
+                RETVAL = result;
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                if(result)
+                        owl_free(result);
+
 MODULE = BarnOwl                PACKAGE = BarnOwl::Internal