Mercurial > pidgin.yaz
diff plugins/perl/perl-common.c @ 8593:ba075b939aa6
[gaim-migrate @ 9344]
I'm not expecting any miracles, but this just *might* fix some crashes in
the perl plugin... If anybody wants to take over the perl plugin, contact
me.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Tue, 06 Apr 2004 02:52:58 +0000 |
parents | 414c701ef1ff |
children | 92cbf9713795 |
line wrap: on
line diff
--- a/plugins/perl/perl-common.c Tue Apr 06 02:36:09 2004 +0000 +++ b/plugins/perl/perl-common.c Tue Apr 06 02:52:58 2004 +0000 @@ -55,6 +55,9 @@ HV *stash; HV *hv; + if (object == NULL) + return NULL; + if (object_stashes == NULL) { object_stashes = g_hash_table_new(g_direct_hash, g_direct_equal); @@ -94,6 +97,9 @@ HV *hv; void *p; + if (o == NULL) + return NULL; + hv = hvref(o); if (hv == NULL)