/pidgin/main: df5ea49543fd: Fix another perl warning

[Tomasz Wasilczyk]

Changeset: df5ea49543fd062ac818228c6e999f137e0c2170
Author:	 Tomasz Wasilczyk <twasilczyk at pidgin.im>
Date:	 2014-02-10 17:27 +0100
Branch:	 release-2.x.y
URL: https://hg.pidgin.im/pidgin/main/rev/df5ea49543fd

Description:

Fix another perl warning

diffstat:

 libpurple/plugins/perl/perl-common.c |  3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diffs (13 lines):

diff --git a/libpurple/plugins/perl/perl-common.c b/libpurple/plugins/perl/perl-common.c
--- a/libpurple/plugins/perl/perl-common.c
+++ b/libpurple/plugins/perl/perl-common.c
@@ -83,7 +83,8 @@ purple_perl_bless_object(void *object, c
 	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);
 }