bool PerlWrapper::PerlRegisterVm(char* config, char* error)
{
  bool bRet = true;
  dSP;
  ENTER;
  SAVETMPS;
  PUSHMARK(SP);
  XPUSHs(sv_2mortal(newSVpv(config, 0)));
  PUTBACK;
  perl_call_pv("register_vm", G_DISCARD|G_EVAL);
  SPAGAIN;
  if(SvTRUE(ERRSV))
  {
    strcpy(error, SvPV(ERRSV, PL_na));
    bRet = false;
  }
  PUTBACK;
  FREETMPS;
  LEAVE;
  return bRet;
}