# HG changeset patch
# User Etan Reisner <pidgin@unreliablesource.net>
# Date 1179541291 0
# Node ID c4237e963099370a816fb2ee7423b8bcad30033b
# Parent  3e463ddf18f7bab21935cec339cc1df4d2f971c2
Update some perl magic numbers, like in the tcl code. This doesn't actually do
anything since the string should be unique either way but should be more
correct.

diff -r 3e463ddf18f7 -r c4237e963099 libpurple/plugins/perl/perl-common.c
--- a/libpurple/plugins/perl/perl-common.c	Sat May 19 01:00:35 2007 +0000
+++ b/libpurple/plugins/perl/perl-common.c	Sat May 19 02:21:31 2007 +0000
@@ -80,7 +80,7 @@
 	stash = gv_stashpv(stash_name, 1);
 
 	hv = newHV();
-	hv_store(hv, "_purple", 5, create_sv_ptr(object), 0);
+	hv_store(hv, "_purple", 7, create_sv_ptr(object), 0);
 
 	return sv_bless(newRV_noinc((SV *)hv), stash);
 }
@@ -94,7 +94,7 @@
 	hv = hvref(o);
 
 	if (hv != NULL) {
-		sv = hv_fetch(hv, "_purple", 5, 0);
+		sv = hv_fetch(hv, "_purple", 7, 0);
 
 		if (sv != NULL)
 			return TRUE;
@@ -118,7 +118,7 @@
 	if (hv == NULL)
 		return NULL;
 
-	sv = hv_fetch(hv, "_purple", 5, 0);
+	sv = hv_fetch(hv, "_purple", 7, 0);
 
 	if (sv == NULL)
 		croak("variable is damaged");