diff options
| -rw-r--r-- | src/perl/perl-common.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index cb5f0987..550425de 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -99,8 +99,12 @@ SV *irssi_bless_iobject(int type, int chat_type, void *object) PERL_OBJECT_REC *rec; HV *stash, *hv; - g_return_val_if_fail((type & ~0xffff) == 0, NULL); g_return_val_if_fail((chat_type & ~0xffff) == 0, NULL); + if ((type & ~0xffff) != 0) { + g_warning("BUG - id = %d, uniq. ID counter going in %d", + type, module_get_uniq_id("bug", 0)); + return NULL; + } rec = g_hash_table_lookup(iobject_stashes, GINT_TO_POINTER(type | (chat_type << 16))); |