Changeset 8a54409 for perlglue.xs
- Timestamp:
- Oct 10, 2003, 7:42:29 PM (21 years ago)
- 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:
- 257a22f
- Parents:
- fe6f1d3
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlglue.xs
rf1e629d r8a54409 1 1 static const char fileIdent[] = "$Id$"; 2 2 3 #ifdef HAVE_LIBZEPHYR 3 4 #include <zephyr/zephyr.h> 5 #endif 4 6 #include <EXTERN.h> 5 7 #include <perl.h> … … 45 47 zephyr_getrealm() 46 48 CODE: 47 RETVAL = ZGetRealm();49 RETVAL = owl_zephyr_get_realm(); 48 50 OUTPUT: 49 51 RETVAL … … 52 54 zephyr_getsender() 53 55 CODE: 54 RETVAL = ZGetSender();56 RETVAL = owl_zephyr_get_sender(); 55 57 OUTPUT: 56 58 RETVAL
Note: See TracChangeset
for help on using the changeset viewer.