diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-12-29 19:22:00 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-12-29 19:22:00 +0000 |
| commit | e50535a64e5a09066af9f10a2ac7177726502b1b (patch) | |
| tree | 69b7734f5c7fd416186734c7de6f6fcbb97925a8 /src/perl/perl-common.c | |
| parent | 84d672ee42778f4c92f577bfdf89c48d77ce3656 (diff) | |
| download | irssi-e50535a64e5a09066af9f10a2ac7177726502b1b.zip | |
Irssi::signal_emit() was broken.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1027 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.c')
| -rw-r--r-- | src/perl/perl-common.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 35b83828..12c7b93c 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -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; |