zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-20 00:52:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

Irssi::signal_emit() was broken.

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1027 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-29 19:22:00 +00:00 • committed by cras
commit e50535a64e
3 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/perl/perl-common.c
View file

@ -96,6 +96,21 @@ SV *irssi_bless_plain(const char *stash, void *object)
return sv_bless(newRV_noinc((SV*)hv), gv_stashpv((char *)stash, 1));
}
int irssi_is_ref_object(SV *o)
{
SV **sv;
HV *hv;
hv = hvref(o);
if (hv != NULL) {
sv = hv_fetch(hv, "_irssi", 6, 0);
if (sv != NULL)
return TRUE;
}
return FALSE;
}
void *irssi_ref_object(SV *o)
{
SV **sv;