Добрый день.
Столкнулся я со следующей проблемой при написании программы. Есть некий скрипт который при некоторых данных 100% выбрасывает исключение при запуске из perl (perl test.pl). Сам скрипт приведен ниже:
sub register_vm
{
    my ($config) = @_;
    
    my $connect_params = VMware::VmPerl::ConnectParams::new();

    # Establish a persistent connection with server
    my $server = VMware::VmPerl::Server::new();
    if (!$server->connect($connect_params)) 
    {
        my ($error_number, $error_string) = $server->get_last_error();
        die "Could not connect to server: Error $error_number: $error_string\n";
    }
    
    if (!$server->register_vm($config))
    {
        my ($error_number, $error_string) = $server->get_last_error();
        die "Could not register of VM $config: Error $error_number: $error_string\n";
    }
    
    undef $server;
}

Для использования его из C++ была написана функция следующего вида:

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;
}

Проблема в том что при заведомо неверных данных, управление не приходит в блок обработки ошибки. 
Подскажите в чем может быть проблема. Буду благодарен за любые комментарии.

Такая конструкция запишет в $config только 1-й из параметров, с которыми &register_vm вызывается. Так и было задумано?

Да, так и было задумано.

5.6 у мну нет, но в 5.8 вызывать надо с G_EVAL и проверять $@

Это сообщение отредактировал(а) arto - 25.10.2006, 09:40

Он и вызывается с G_EVAL: perl_call_pv("register_vm", G_DISCARD|G_EVAL);
А проверка $@ это аналог SvTRUE(ERRSV).

значит с ++ проблема.
попробуйте просто cc.

во всяком случае у меня такое работает, перехват die.