diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-12-06 17:17:40 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-12-06 17:17:40 +0000 |
| commit | 31dcd8258f8f52c065e4297f7abecc5dd0a7d0a2 (patch) | |
| tree | fc3cdc763159ad896422775addb1a763d53536ee /src/perl/perl-common.h | |
| parent | 9dd46372ff722a54d70ae383b79542f6d3c60200 (diff) | |
| download | irssi-31dcd8258f8f52c065e4297f7abecc5dd0a7d0a2.zip | |
Irssi::signal_add(), Irssi::timeout_add(), Irssi::input_add() and their
variants now also allow use of code references.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2199 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.h')
| -rw-r--r-- | src/perl/perl-common.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index 13ea3d4e..7c3adfd1 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -22,6 +22,9 @@ typedef struct { const char *perl_get_package(void); /* Parses the package part from function name */ char *perl_function_get_package(const char *function); +/* If SV is a string, prefix it with given package. + Increases the reference counter for the return value. */ +SV *perl_func_sv_inc(SV *func, const char *package); /* For compatibility with perl 5.004 and older */ #ifndef HAVE_PL_PERL |