# HG changeset patch
# User Stu Tomlinson <stu@nosnilmot.com>
# Date 1177175495 0
# Node ID a910080ccf8b5486cb422e9e0ee680857087f1da
# Parent  b9323295ba2fec3e2cb752389a3e3dc1e7d3f918
mmm, magic numbers! strlen("purple-") != strlen("gaim-") ...

diff -r b9323295ba2f -r a910080ccf8b libpurple/plugins/tcl/tcl_ref.c
--- a/libpurple/plugins/tcl/tcl_ref.c	Sat Apr 21 16:35:27 2007 +0000
+++ b/libpurple/plugins/tcl/tcl_ref.c	Sat Apr 21 17:11:35 2007 +0000
@@ -116,14 +116,14 @@
 	void *value;
 
 	if (strlen(bytes) < 7
-	    || strncmp(bytes, "purple-", 5)
+	    || strncmp(bytes, "purple-", 7)
 	    || (ptr = strchr(bytes, ':')) == NULL
-	    || (ptr - bytes) == 5)
+	    || (ptr - bytes) == 7)
 		goto badobject;
 
 	/* Bad Ethan */
 	*ptr = '\0';
-	type = purple_stringref_new(bytes + 5);
+	type = purple_stringref_new(bytes + 7);
 	*ptr = ':';
 	ptr++;