diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-12-03 22:37:02 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-12-03 22:37:02 +0000 |
| commit | 439818bcf868daaf4c22d77469f830cb9a496e8b (patch) | |
| tree | 17f89c4aa8fd15cedbf8be04dd953561975521ee /src/perl/common | |
| parent | 3c2aec1214c9d4ab572217e460bdc9f6dce21f4a (diff) | |
| download | irssi-439818bcf868daaf4c22d77469f830cb9a496e8b.zip | |
Made irssi_binary global and exported to perl as get_irssi_binary().
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3039 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Core.xs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index d5b9d6e8..8230e77f 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -3,6 +3,7 @@ #include "core.h" #include "pidwait.h" +#include "session.h" #define DEFAULT_COMMAND_CATEGORY "Perl scripts' commands" @@ -549,6 +550,13 @@ OUTPUT: RETVAL char * +get_irssi_binary() +CODE: + RETVAL = irssi_binary; +OUTPUT: + RETVAL + +char * version() PREINIT: char version[100]; |