The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
FE_fd		T_FE_FD

INPUT

T_FE_FD
	if (sv_derived_from ($arg, \"Linux::DVB::Frontend\"))
	  $var = ($type) SvIV (*hv_fetch ((HV*)SvRV ($arg), \"fd\", 2, 1));
	else
	  croak (\"$var is not of type Linux::DVB::Frontend\")