Select Code to Download

62 ($data[0],$len[0]) = $users[0]->Certificate();
63 if(!(defined $data[0]) && !(defined $len[0])) {print "ok 5\n";} els
+e {print "not ok 5\n";};

void
Certificate(pSelf,...)
...
       PUSHs(sv_2mortal(newSVpv(pSelf->credStruct.lpszCertBinary,0)));
       PUSHs(sv_2mortal(newSViv((IV)pSelf->credStruct.nCertBinaryLen )
+));
       XSRETURN(2);

void HandleError(char *func, int numArgs, int errorArg, SV *errorSV, i
+nt errorCode)
{
...
        croak("%s() failed with error %d. The interface now has an add
+itional optional argument.", func, errorCode);
    }
}