Fix bug 1089. This allows the documented API for tcldot to

remain as is.

diff --git a/lib/gvc/gvplugin.c b/lib/gvc/gvplugin.c
index 6ccac92921e3fb1e3750dbc27eeb97ab99de94b3..eb9e78036cf2a84d37270f779638b815c1ba255d 100644 (file)
--- a/lib/gvc/gvplugin.c
+++ b/lib/gvc/gvplugin.c
@@ -310,8 +310,8 @@ const char *gvplugin_list(GVC_t * gvc, api_t api, char *str)
        pprev = NULL;
        while (*pnext) {
            /* list only the matching type, and only once*/
-           if ((strcmp(s, (*pnext)->typestr) == 0)
-                   && ! (pprev && strcmp((*pnext)->packagename, (*pprev)->packagename) == 0)) {
+           if ((strcasecmp(s, (*pnext)->typestr) == 0)
+                   && ! (pprev && strcasecmp((*pnext)->packagename, (*pprev)->packagename) == 0)) {
                /* list each member of the matching type as "type:path" */
                append_buf(' ', (*pnext)->typestr, new);
                buf = append_buf(':', (*pnext)->packagename, FALSE);
@@ -328,7 +328,7 @@ const char *gvplugin_list(GVC_t * gvc, api_t api, char *str)
        while (*pnext) {
            /* list only one instance of type */
            if (!typestr_last
-               || strcmp(typestr_last, (*pnext)->typestr) != 0) {
+               || strcasecmp(typestr_last, (*pnext)->typestr) != 0) {
                /* list it as "type"  i.e. w/o ":path" */
                buf = append_buf(' ', (*pnext)->typestr, new);
                new = FALSE;