changeset 17129:c4237e963099

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.
author Etan Reisner <pidgin@unreliablesource.net>
date Sat, 19 May 2007 02:21:31 +0000
parents 3e463ddf18f7
children 8504e859c782
files libpurple/plugins/perl/perl-common.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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");