diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-01-21 19:20:08 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-01-21 19:20:08 +0000 |
| commit | e4aa149c54e7e5033be77c17ea2893164e00deb3 (patch) | |
| tree | e619a7e51243d1ae7015da7aa7e82b8e1563fd63 /src/perl/common | |
| parent | 1af5f41812703045b5b7433f4c34cf2c34186b6c (diff) | |
| download | irssi-e4aa149c54e7e5033be77c17ea2893164e00deb3.zip | |
Irssi::signal_add_first() and .._last() allows hashes now.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2334 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Core.xs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index ea47e684..6cebd27c 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -50,24 +50,20 @@ CODE: perl_signal_add_hash(1, ST(0)); void -signal_add_first(signal, func) - char *signal - SV *func +signal_add_first(...) CODE: if (items != 1 && items != 2) - croak("Usage: Irssi::signal_add(signal, func)"); + croak("Usage: Irssi::signal_add_first(signal, func)"); if (items == 2) perl_signal_add_first((char *)SvPV(ST(0),PL_na), ST(1)); else perl_signal_add_hash(0, ST(0)); void -signal_add_last(signal, func) - char *signal - SV *func +signal_add_last(...) CODE: if (items != 1 && items != 2) - croak("Usage: Irssi::signal_add(signal, func)"); + croak("Usage: Irssi::signal_add_last(signal, func)"); if (items == 2) perl_signal_add_last((char *)SvPV(ST(0),PL_na), ST(1)); else |