mca/base CID 1516779: fix possible NULL usage

In practice, this probably would never happen because we'll always
have a path with a path separator in it.  But we might as well be
defensive and ensure to handle the case where we strtok() returns NULL
on even the first call.

Signed-off-by: Jeff Squyres <[email protected]>

Author: jsquyres

opal/mca/base/mca_base_component_repository.c

@@ -211,6 +211,9 @@ int mca_base_component_repository_add(const char *path)
     path_to_use = strdup(path);
 
     dir = strtok_r(path_to_use, sep, &ctx);
+    if (NULL == dir) {
+        goto done;
+    }
     do {
         if ((0 == strcmp(dir, "USER_DEFAULT") || 0 == strcmp(dir, "USR_DEFAULT"))
             && NULL != mca_base_user_default_path) {
@@ -224,6 +227,7 @@ int mca_base_component_repository_add(const char *path)
         }
     } while (NULL != (dir = strtok_r(NULL, sep, &ctx)));
 
+ done:
     free(path_to_use);
 
 #endif /* OPAL_HAVE_DL_SUPPORT */