+ /* get rid of the "."-extension */
+
+ /* is there a dot at all? */
+ if (strchr (buffer, '.') &&
+ /* is the dot in the filename, not in the path? */
+ (strrchr (buffer, '/' ) < strrchr (buffer, '.') ||
+ strrchr (buffer, '\\') < strrchr (buffer, '.')))
+ *strrchr (buffer, '.') = '\0';
+