changeset
Fix another perl warning
Mon, 10 Feb 2014 17:27:36 +0100
- author
- Tomasz Wasilczyk <twasilczyk@pidgin.im>
- date
- Mon, 10 Feb 2014 17:27:36 +0100
- branch
- release-2.x.y
- changeset 35521
- df5ea49543fd
- parent 35518
- 0e2608c5682d
- child 35523
- 2ffc6571dc35
Fix another perl warning
| libpurple/plugins/perl/perl-common.c | file | annotate | diff | comparison | revisions |
--- a/libpurple/plugins/perl/perl-common.c Mon Feb 10 16:58:03 2014 +0100 +++ b/libpurple/plugins/perl/perl-common.c Mon Feb 10 17:27:36 2014 +0100 @@ -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); }
