Changeset bb79a52 for perlglue.xs


Ignore:
Timestamp:
Sep 28, 2009, 3:15:55 PM (12 years ago)
Author:
Karl Ramm <kcr@1ts.org>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    r0c4ef53 rbb79a52  
    416416        }
    417417
     418char *
     419get_zephyr_variable(name)
     420        char *name;
     421        PREINIT:
     422                char *result;
     423        CODE:
     424                result = (char *)owl_zephyr_get_variable(name);
     425                result = result ? owl_strdup(result) : result;
     426                RETVAL = result;
     427        OUTPUT:
     428                RETVAL
     429        CLEANUP:
     430                if(result)
     431                        owl_free(result);
     432
    418433MODULE = BarnOwl                PACKAGE = BarnOwl::Internal
    419434
Note: See TracChangeset for help on using the changeset viewer.