#ifdef WIN32
    if (strcmp(name + len - 3, ".pm")) {
        char *pkg;
        int slash_count = 0, i = 0;
        
        for (i = 0; i < len - 3; i++) {
            if (name[i] == '/') slash_count++;
        }

        /* "Foo/Bar.pm" + 1 (slash) - 3 (".pm") + 1 ("\0") */
        pkg = malloc(sizeof(char) * (len + slash_count - 3 + 1));
        
        slash_count = 0;
        
        for (i = 0; i < len - 3; i++) {
            if (name[i] == '/') {
                pkg[i + slash_count] = ':';
                pkg[i + ++slash_count] = ':';
            }
            else pkg[i + slash_count] = name[i];
        }
        pkg[i + slash_count] = '\0';
                
        if (!gv_stashpv(pkg, FALSE))   
            Perl_warner(aTHX_ WARN_MISC, "Package %s not found (did you use the incorrect case?)", pkg);
    }
#endif