Select Code to Download

use strict;
use warnings;
...
    print(sprintf("[%d] PRL: my_connect_cb called bConn = %d\n",Win32:
+:GetCurrentThreadId(), $_[0]));
}

SV* MyConnectCbPerl = NULL;
void* pMyConnectCbPerlCTX = NULL;
...
    SWIG_croak_null();
  }
}

void wrap_connect_cback_handler(BOOL bConnected)
{
...
    FREETMPS;
    LEAVE;
}

 ########## TEST ITERATE : 6 ##########
[5528] LIB: MyRegister pfnConnectCallback = 54E310A5
...
[6116] PRL: my_connect_cb called bConn = 0
panic: pp_iter at F:\TEST\SWIG_API\Debug\run_cb.pl line 22.
panic: pp_iter at F:\TEST\SWIG_API\Debug\run_cb.pl line 22.