TYPEMAP
pdl*	T_PDL
pdl *	T_PDL
Logical	T_IV

INPUT

T_PDL
	$var = SvPDLV($arg)

