Mercurial > pidgin.yaz
changeset 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 | 1dde34c45c5b |
| children | f3b928825a72 |
| files | plugins/perl/perl-common.c |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
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)