dirp->handle = FindFirstFileW(PerlDir_mapW(wscanname), &wFindData);

    if (dirp->handle == INVALID_HANDLE_VALUE) {
        DWORD err = GetLastError();
        /* FindFirstFile() fails on empty drives! */
        switch (err) {
        case ERROR_FILE_NOT_FOUND:
            return dirp;
        case ERROR_NO_MORE_FILES:
        case ERROR_PATH_NOT_FOUND:
            errno = ENOENT;
            break;
        case ERROR_NOT_ENOUGH_MEMORY:
            errno = ENOMEM;
            break;
        default:
            errno = EINVAL;
            break;
        }
        Safefree(dirp);
        return NULL;
    }