use warnings;

use Inline C => <<'EOC';

void vatest__(char* format, va_list* args) {
    char buf[1024];
    vsprintf(buf, format, *args);
    errno = 0;  // "Success"
    perror(buf);
}


void vatest_(char* format, va_list* args) {
    
    vatest__(format, args);
}


void vatest(char* format, ...) {
    va_list args;
    va_start (args, format);
    vatest_(format, &args);
    va_end (args);
}

SV * foo () {
    char* msg0 = "vatest";
    char* msg1 = "foo";
    char* msg2 = "bar";
    double d = 12.345;
    unsigned long l = 1234567890;
    vatest("%s %s", msg0, msg1);
    vatest("%s %s %s %u %f", msg0, msg1, msg2, l, d);
    return newSViv(0);
}

EOC

foo();

##</code><code>##

vatest foo: No error
vatest foo bar 1234567890 12.345000: No error