libpurple/plugins/tcl/tcl_ref.c

branch
string-comparison-r2
changeset 38259
c593fc9f5438
parent 36256
a437550a9308
--- a/libpurple/plugins/tcl/tcl_ref.c	Thu Mar 23 21:01:15 2017 +0300
+++ b/libpurple/plugins/tcl/tcl_ref.c	Fri Mar 24 02:23:46 2017 +0300
@@ -55,7 +55,7 @@
 		if (Tcl_ConvertToType(interp, obj, &purple_tcl_ref) != TCL_OK)
 			return NULL;
 	}
-	if (strcmp(purple_stringref_value(OBJ_REF_TYPE(obj)),
+	if (!purple_strequal(purple_stringref_value(OBJ_REF_TYPE(obj)),
 		   purple_stringref_value(type))) {
 		if (interp) {
 			Tcl_Obj *error = Tcl_NewStringObj("Bad Purple reference type: expected ", -1);

mercurial