static void

warn_about_name_format(struct pkg *pkg, const char *fpath, const char *shlib)

{

	bool		wrong = false;

	unsigned	len;

	/* Shlib names in NEEDED records in the Dynamic section of an

           ELF object are expected to look like libfoo.so.N where the

           ABI version N is an integer or libfoo.so without ABI

           version at all.  Well, actually, this should probably only

           apply to shlibs which are publicly available.  shlibs for

           the private use of some package can have whatever naming

           convention they want.  So this is a bit too strict. */

	len = strlen(shlib);

	if (len < 9)		/* libx.so.0 */

		wrong = true;

	if (!wrong && strncmp(shlib, "lib", 3) != 0)

		wrong = true;

	if (!wrong) {

		const char *s;

		s = shlib + len;

		if (strncmp(s - 3, ".so", 3) != 0) {

			while (s > shlib + 3 && isdigit(*(s-1)))

				s--;

			if (strncmp(s - 4, ".so.", 4) != 0)

				wrong = true;

		}

	}

	if (wrong) {

		const char	*name;

		const char	*version;

		pkg_get(pkg, PKG_NAME, &name, PKG_VERSION, &version);

		warnx("(%s-%s) %s links with incorrectly named "

		      "shared library %s", name, version, fpath, shlib);

	}

}

		/* When running in DEVELOPER_MODE check that shlib

		   names conform to the correct pattern.  Only issue a

		   warning on mismatch -- shlibs may belong to a

		   different package. */

		if (developer)

			warn_about_name_format(pkg, fpath, shlib);