# New Ticket Created by  Jerry Gay 
# Please include the string:  [perl #59722]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=59722 >


currently, the sysinfo_s op, implemented in src/inter_misc.c, is incomplete:


PARROT_CANNOT_RETURN_NULL
PARROT_WARN_UNUSED_RESULT
STRING *
sysinfo_s(PARROT_INTERP, INTVAL info_wanted)
{
    switch (info_wanted) {
        case PARROT_OS:
            return const_string(interp, BUILD_OS_NAME);
        case PARROT_OS_VERSION:
        case PARROT_OS_VERSION_NUMBER:
        case CPU_ARCH:
        case CPU_TYPE:
        default:
            return CONST_STRING(interp, "");
    }
}


one effect of this partial implementation is that the $*OSVER variable
in rakudo always contains the empty string.
~jerry

Reply via email to