The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
redisAsyncContext *  T_PTROBJ_MG
redisErrorCode T_ERRORCODE

OUTPUT
T_ERRORCODE
	if($var != REDIS_OK)
            croak("Non-zero error code (%d) returned", $var);