TYPEMAP
Share*		SHARE
key_t		KEY

INPUT
SHARE
		$var = (Share *)SvIV($arg);
KEY	
		$var = (key_t) SvIV($arg);	

OUTPUT
SHARE
		sv_setiv($arg, (I32) $var);
	
