comparison: plugins/perl/perl-common.c
plugins/perl/perl-common.c
- changeset 8593
- ad96ca5bde01
- parent 7386
- 9cccb3792018
- child 8735
- 01248ea222d3
equal
deleted
inserted
replaced
| 8592:95551e6e91ba | 8593:ad96ca5bde01 |
|---|---|
| 52 SV * | 52 SV * |
| 53 gaim_perl_bless_object(void *object, const char *stash_name) | 53 gaim_perl_bless_object(void *object, const char *stash_name) |
| 54 { | 54 { |
| 55 HV *stash; | 55 HV *stash; |
| 56 HV *hv; | 56 HV *hv; |
| 57 | |
| 58 if (object == NULL) | |
| 59 return NULL; | |
| 57 | 60 |
| 58 if (object_stashes == NULL) | 61 if (object_stashes == NULL) |
| 59 { | 62 { |
| 60 object_stashes = g_hash_table_new(g_direct_hash, g_direct_equal); | 63 object_stashes = g_hash_table_new(g_direct_hash, g_direct_equal); |
| 61 } | 64 } |
| 91 gaim_perl_ref_object(SV *o) | 94 gaim_perl_ref_object(SV *o) |
| 92 { | 95 { |
| 93 SV **sv; | 96 SV **sv; |
| 94 HV *hv; | 97 HV *hv; |
| 95 void *p; | 98 void *p; |
| 99 | |
| 100 if (o == NULL) | |
| 101 return NULL; | |
| 96 | 102 |
| 97 hv = hvref(o); | 103 hv = hvref(o); |
| 98 | 104 |
| 99 if (hv == NULL) | 105 if (hv == NULL) |
| 100 return NULL; | 106 return NULL; |
