diff: libpurple/plugins/perl/perl-common.c
libpurple/plugins/perl/perl-common.c
- changeset 33892
- ef97228bc5f0
- parent 29341
- 8df545432476
- child 34779
- 98c540811600
- child 35998
- aeaebd2ba4af
--- a/libpurple/plugins/perl/perl-common.c Sun Apr 14 21:45:09 2013 +0200 +++ b/libpurple/plugins/perl/perl-common.c Mon Apr 15 00:48:17 2013 +0200 @@ -83,7 +83,8 @@ stash = gv_stashpv(stash_name, 1); hv = newHV(); - hv_store(hv, "_purple", 7, create_sv_ptr(object), 0); + if (hv_store(hv, "_purple", 7, create_sv_ptr(object), 0) == NULL) + purple_debug_error("perl", "hv_store failed\n"); return sv_bless(newRV_noinc((SV *)hv), stash); }
