diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-07-30 12:56:57 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-07-30 12:56:57 +0000 |
| commit | 82034efb110ce7055741d1238db46effc2f57bc1 (patch) | |
| tree | b137abddfbfd965a26f5caab4a61752808606da2 /src/perl/perl-common.h | |
| parent | 279f149295f7ee830c95a9bf0d861a057674b545 (diff) | |
| download | irssi-82034efb110ce7055741d1238db46effc2f57bc1.zip | |
Script name is printed now correctly if there's an error in
timeouts/signals.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1688 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.h')
| -rw-r--r-- | src/perl/perl-common.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index 81b4489d..232d7510 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -18,8 +18,10 @@ typedef struct { PERL_OBJECT_FUNC fill_func; } PLAIN_OBJECT_INIT_REC; -/* returns the package who called us */ -char *perl_get_package(void); +/* Returns the package who called us */ +const char *perl_get_package(void); +/* Parses the package part from function name */ +char *perl_function_get_package(const char *function); /* For compatibility with perl 5.004 and older */ #ifndef HAVE_PL_PERL |